【发布时间】:2017-01-13 06:44:12
【问题描述】:
我有点难过。我正在尝试查看 ColA 中的唯一数字并在同一行上获取文本,并将其与 ColB 中的相同(有时重复)数字进行比较,并在同一行上获取文本。如果文本不同,我想在 ColC 的单元格中突出显示差异。
这很难解释,所以这里有一张图片。
我知道 ColA 中的 1 = 必需。所以,我想查看 ColB 中的所有数字 1,并确保 ColC 中的同一行 = 必需。在 ColA 中,2、3、4 和 5 在 ColC 中都是必需的。在 ColB 中,3 和 4 在 ColC 中应该有一个Required,但它说的有些不同,所以我想将这些单元格着色为橙色。是否有意义?我想过使用 Vlookup,但我不确定它是如何工作的?
目前,我还没有代码,但如果我想出一些可行的方法,或者如果我能让它工作,我一定会发布解决方案。
我认为代码会是这样的,但这不符合我上面描述的逻辑。
Sub StillTrying()
Dim mCell As Range
Dim R As Long
Dim Rng As Range
Dim Agent As Range
Dim AgentList As Range
Application.ScreenUpdating = False
Set AgentList = ActiveSheet.Range("A2:A20")
Set Rng = ActiveSheet.Range("B2:B20")
For Each Agent In AgentList
For Each mCell In Rng
Debug.Print mCell.Address
Debug.Print Agent.Address
If mCell.Value = Agent.Value And mCell.Offset(0, 1).Value = Agent.Offset(0, 2).Value Then
' do nothing
Else
mCell.Offset(0, 1).Resize(, 1).Select
With Selection.Interior
.Color = 39423
End With
R = R + 1
End If
Next mCell
Next Agent
End Sub
基本上,C& 和 C8 应该是橙色的。
谢谢大家。
【问题讨论】: