如果两列匹配且不为空，则为高光整行
如果两列匹配且不为空，则为高光整行
提问于 2018-05-02 06:41:04
我看过了，虽然这里可能有些东西，但我对VBA来说太陌生了，无法让它发挥作用。
我希望对数据范围进行排序，如果两个特定列匹配，则突出显示一行，只要一列(K)不是空的。
更多详情：
如果列D=列K和K列不是空白，则突出显示该行。
行的数量将根据一天的不同而变化。
数据集从第3行开始。
我在考虑用.end(xlup)来复制公式。
这可以通过条件格式来实现，但是我尝试在VBA中构建它，这样它将是一个单一按钮的解决方案。
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-05-02 07:04:02
这是一个你可以看的版本
Sub DoIt()
Dim Rng As Range, C As Range
Set Rng = Columns("K:K").SpecialCells(xlCellTypeConstants, 23)
Columns("K:K").SpecialCells(xlCellTypeBlanks).EntireRow.Interior.Color = xlNone
For Each C In Rng.Cells
If C.Offset(, -7) = C Then
Range(Cells(C.Row, "K"), Cells(C.Row, "D")).Interior.Color = vbYellow
Else: Range(Cells(C.Row, "K"), Cells(C.Row, "D")).Interior.Color = xlNone
End If
Next C
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50137357
复制相关文章
相似问题
腾讯云开发者
