Excel VBA質問箱 IV

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

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


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

1304 / 76734

←次へ　｜　前へ→


	【81082】VBAで重複データ

nao - 19/8/19(月) 22:31 -


	引用なし

	パスワード

ご質問させてください。
素人なりにExcel2016 VBAで重複データを調べています。

現在、同一シート内の検出はできるようになったのですが
複数シート5シート程の重複データも調べたいと思っているのですが
うまく行きません。

それぞれのシートで重複を調べているようです。

例えばシート1にりんごの重複があった場合、
シート2やシート3のリンゴもシートへ色を付けたいです。

複数シートでのコードを教えて下さい。
現在のコードは、
Sub Test1()
Dim i As Long, j As Long
For i = 1 To 3000 '
For j = 1 To 6 '
If WorksheetFunction.CountIf(Range("A1:G100"), Cells(i, j)) > 1 Then
Cells(i, j).Interior.ColorIndex = 40
End If
Next j
Next i
End Sub

としています。
各シートにも検出セル色を付けたいです。
宜しくお願い致します。

5 hits

▼

【81082】VBAで重複データ nao 19/8/19(月) 22:31