[[20230320230501]]　『空白列になるまで削除』（S23）　ページの最後に飛ぶ

『空白列になるまで削除』（S23）

すみません、初心者故に、マクロを教えて欲しいです。

A列を上から探して　順位　という文字のセルを見つけたら
その行のC列から空白列になるまでに入っている
[ ]とその中の値を全て削除したいです。

例えば　
A15行に順位　とあったら

     C15→[1]東京　D15→[2]埼玉  E15→[3]神奈川　F15→[4]栃木・・・・

と空白列まで続くのでそれを

     C15→東京　D15→埼玉  E15→神奈川　F15→栃木・・・・

としたいです。
方法を教えていただけますようおねがいします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

もっと効率のいいやり方はたくさんありますが、単純なループの例です。

 Sub test()
     Dim i As Long, j As Long, s
     'A列を上から順番に見ていく
     For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
         '順位を見つけたら、C列から最終列まで検索
         If Cells(i, "A") = "順位" Then
             For j = 3 To Cells(i, Columns.Count).End(xlToLeft).Column
                 'セルに]が含まれていたら、]で分割して後ろ部分をセルに挿入
                 If Cells(i, j) Like "*]*" Then
                     s = Split(Cells(i, j), "]")
                     Cells(i, j) = s(1)
                 End If
             Next
         End If
     Next
 End Sub
（フォーキー） 2023/03/20(月) 23:59:39

フォーキーさん　ありがとうございます！
望んでいたかたちに綺麗になりました！

感謝します！！

（S23） 2023/03/21(火) 00:27:34

コメント返信：

[ 一覧(最新更新順) ]

[[20230320230501]] 『空白列になるまで削除』（S23） ページの最後に飛ぶ

[[20230320230501]]　『空白列になるまで削除』（S23）　ページの最後に飛ぶ