Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47542 / 76732

←次へ　｜　前へ→


	【34144】Re:シート1とシート２の内容が同一かチェッ...

Statis - 06/1/27(金) 11:52 -


	引用なし

	パスワード

こんにちは

参考までに。

Sub Test_1()
Dim R As Range, R1 As Range, C As Range, Ch As Boolean
Ch = True
　　 Set R = Worksheets("Sheet1").Cells.SpecialCells(xlCellTypeConstants)
　　 Set R1 = Worksheets("Sheet2").Cells.SpecialCells(xlCellTypeConstants)
　　 If R.Count <> R1.Count Then
　　　　Ch = False
　　　　GoSub End_Len
　　 End If
　　 For Each C In R
　　　　 If C.Value <> Worksheets("Sheet2").Range(C.Address).Value Then
　　　　　　Ch = False
　　　　　　GoSub End_Len
　　　　 End If
　　 Next C

End_Len:
If Ch = False Then
　　Application.DisplayAlerts = False
　　Worksheets("Sheet2").Delete
　　Application.DisplayAlerts = True
End If
Set R = Nothing: Set R1 = Nothing
End Sub

0 hits

▼

【34142】シート1とシート２の内容が同一かチェッ... カド 06/1/27(金) 11:30