如何突出显示数组中的内容

我已经安装了一个数组，以便检查工作表的内容。 我发现不一致的地方，我想强调它们。 我“尝试”使用.Interior.colourindex但这是行不通的。 我研究它，这个函数改变了单元格的内部颜色，因为我在一个数组中，我不能这样做。 下面是我的代码与.interior.colourindex包括在其中（显然不工作）。 如果有人能告诉我一个替代方法来突出这些差异，我会很感激吗？

码：

 Sub AcidMap() gFrow = 1 gLastrow = FindLastRow(gcsAmort) gLastcolumn = FindLastCol(gcsAmort) gVmyArray = Sheets(gcsAmort).Range(Sheets(gcsAmort).Cells(1, 1), Sheets(gcsAmort).Cells(1, gLastcolumn)) gVAmortArray = Sheets(gcsAmort).Range(Sheets(gcsAmort).Cells(1, 1), Sheets(gcsAmort).Cells(gLastrow, gLastcolumn)) For x = LBound(gVAmortArray) To UBound(gVAmortArray) If gVAmortArray(x, 1) <> "ID" Then If gVAmortArray(x, 1) = gVAmortArray(x - 1, 1) Then For y = 1 To 3 If y <> 1 Then If gVAmortArray(x, y) <> gVAmortArray(x - 1, y) Then gVAmortArray(x, y).Interior.ColorIndex = 5 End If End If Next y End If End If Next x Sheets(gcsAmort).Range(Sheets(gcsAmort).Cells(1, 1), Sheets(gcsAmort).Cells(gLastrow, gLastcolumn)) = gVAmortArray MsgBox "Macro Complete" End Sub 

Answer 1

而不是试图突出显示该数组只是突出显示与数组中的值对应的单元格。

代替：

 gVAmortArray(x, y).Interior.ColorIndex = 5 

使用偏移量锚定到第一个单元格，并使用您的x和y：

 Sheets(gcsAmort).Cells(1, 1).Offset(x-1, y-1).Interior.ColorIndex = 5 

而且由于你没有对数组中的值做任何事情，所以不需要粘贴相同的值，所以你可以删除该行来保存一个步骤。