エクセルVBAに詳しい方

Excel | Visual Basic113閲覧

ベストアンサー

0

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

azasu

お礼日時:5/28 20:19

その他の回答(1件)

0

Sub rows_check() Dim r1, r2 r1 = 1 r2 = 2 With ActiveSheet For c = 1 To Columns.Count If .Cells(r1, c).Value <> .Cells(r2, c).Value Then MsgBox "全く同じではありません" Exit Sub End If Next c End With MsgBox "全く同じです" End Sub こんな感じですかね?