下記のマクロが「現在開いているシート」で起動してしまいます。 """ Sub TradeMarginShinkiDelete() Dim i As Long, r As Long

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

ベストアンサー

0

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

理解できました! ありがとうございました!

お礼日時:10/15 15:39

その他の回答(1件)

0

シートをきちんと指定してあげればいいです。 Sub TradeMarginShinkiDelete() Dim i As Long, r As Long With Worksheets("TradeMargin") r = .Range("A" & Rows.Count).End(xlUp).Row For i = 2 To r If .Cells(i, "A") <> "" And .Cells(i, "J") = "" And .Cells(i, "K") = "" Then .Rows(i & ":" & i).Select Selection.Delete Shift:=xlUp Selection.Offset(-1).Select i = i - 1 End If Next i .Range("A1").Select Application.ScreenUpdating = True MsgBox "Done." End With End Sub