K99 K200の解決方法

質問者が納得マクロ処理です。>セルごと削除左方向にシフトします。下記のコードを標準モジュールに張り付けて実行してみて。Sub test() Dim i As Long, j As Long For i = 1 To 99 For j = 11 To 1 Step -1 If WorksheetFunction.CountIf(Range("A100:K200"), Cells(i, j)) > 0 Then Cells(i, j).Delete Shift:=xlToLeft End I...