bazuo https://blog.hatena.ne.jp/bazuo/ ばずなダイアリー https://bazuo.hatenadiary.org/ Excel VBA VBAなんてやらないよ！っておもってたら単純作業の繰り返しには効率的だという事が発覚！ なのでメモっておく。 これはJ2:J6000までの列とK2:K6000までのセル内を結合し、その後K列の内容を削除する。 結合したい対象のセルが違う場合はCells内をいじればよくて(1,1)を基準として数を加減すればOK Range内をかえれば対象列も変更可能。 Sub Mojimoji() Dim Moji As String Dim c As Range For Each c In Range("J2:J6000") Moji1 = c.Cells.Value Moji = c.Cells(1, 2)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbazuo.hatenadiary.org%2Fentry%2F20080626%2F1214442871" title="対象列の隣の列の文字を結合するスクリプト - ばずなダイアリー" 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 2008-06-26 10:14:31 rich https://bazuo.hatenadiary.org/entry/20080626/1214442871 1.0 100%