データのリストを検索し、コンテンツ リストのデータに基づいてエントリを色分けできるマクロが必要です。
たとえば、列 A のデータを検索し、列 B (コンテンツ) に対応する場合、列 A のエントリを色分けして、列 B の事前に色分けされたデータと一致させます。
約1000のエントリをループするにはこれが必要です。
前もって感謝します。アンディ
質問をする前に調査して解決策を試み、すでに試したことを共有するというサイトのルールに従わなかったので、あなたを励ますことはできません. それがおそらく、他の人があなたの質問に否定的な評価を付けた理由です.
ただし、問題のパラメーターについて十分に検討したため、この質問を作成する前に何かを試した可能性があると思われます。疑いの恩恵をあなたに与えています。「事前に色分けされたデータ」がセルの内部を意味する場合、これが可能な解決策です。
データの列とヘッダー行に一致するように上部の定数を変更します。
データの事前の色分けが、私が使用した内部設定以外のものである場合は、マクロ レコーダーを使用してどの設定を変更するかを判断し、このコード (With rCell.Interior
コードがある場所)に組み込むというマーティ マクブリーのアドバイスを参考にしてください。 .
Sub MatchColor()
Const sColumnID As String = "A"
Const iHeaderID As Integer = 1
Dim rCell As Range
Dim rColumn As Range
Set rColumn = Range(sColumnID & iHeaderID, Range(sColumnID & iHeaderID).End(xlDown))
For Each rCell In rColumn
If rCell.Value = rCell.Offset(0, 1).Value Then
With rCell.Interior
.Pattern = rCell.Offset(0, 1).Interior.Pattern
.PatternColorIndex = rCell.Offset(0, 1).Interior.PatternColorIndex
.ThemeColor = rCell.Offset(0, 1).Interior.ThemeColor
.TintAndShade = rCell.Offset(0, 1).Interior.TintAndShade
.PatternTintAndShade = rCell.Offset(0, 1).Interior.PatternTintAndShade
End With
End If
Next rCell
End Sub