tanaponchikidun https://blog.hatena.ne.jp/tanaponchikidun/ Object for cutie https://tanaponchikidun.hatenadiary.org/ VB Sub SellDivision() 'セルの内容にカンマがある場合、セルを分けるDim intLastLow As Integer Dim intChangeColumn As Integer Dim strChangeValue As String Dim varDivisionValue As Variant'入力最終セルの行数を取得 ActiveCell.SpecialCells(xlLastCell).Select intLastLow = ActiveCell.Row'変更をかける列を取得 intChangeColumn = Range("A1") Dim i As Integer… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftanaponchikidun.hatenadiary.org%2Fentry%2F20110724%2F1311522312" title="カンマで区切られた文字をいくつかのセルに分割 - Object for cutie" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-07-24 00:45:12 rich https://tanaponchikidun.hatenadiary.org/entry/20110724/1311522312 1.0 100%