Excel マクロについてご教授頂けないでしょうか。 Excelのある行に空白、もしくわ○がランダムに入力されています。

補足

ランダムに○が入力されているのは行でわなく、列となります。

Excel | Visual Basic72閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ThanksImg質問者からのお礼コメント

やりたい事出来ました。 ご親切に役割のようなコメントも付けて頂き、分かりやすかったです。 ありがとうございました。

お礼日時:6/30 19:28

その他の回答(1件)

0

For ii = 1 To UsedRange.Rows(UsedRange.Rows.Count).Row 開始列 = 0 終了列 = 0 For jj = 1 To Cells(ii, Columns.Count).End(xlToLeft).Column If Cells(ii, jj) = "○" Then If 開始列 = 0 Then 開始列 = jj End If 終了列 = jj End If Next jj Cells(ii, 終了列 + 1) = 終了列 - 開始列 + 1 Next ii

画像