Question

我正在学习excel中的vba。我在这里遇到了问题。

我在这里尝试完成的是

当Sheet1 ColumnC为空时，选择Sheet1 ColumnB中的值。
获取这些值并将它们与sheet2 ColumnO进行比较。
与sheet2 ColumnO值相同时，Sheet1 ColumnB值在sheet1中为绿色。
Sheet1 ColumnB值在sheet1中为黄色，当它与sheet2 ColumnO值不相同时。
sheet2当Sheet2中的ColumnO值不在sheet1中时，其值为红色。

这是示例文件

https://a.uguu.se/tkGV68TzIGwR_testtt111.xlsx

这是我到目前为止所得到的。当columnC为空时，我可以在ColumnB中选择值，并将它们复制到另一列。

Sub compareWR()
Dim emptyI As Long          
Dim emptyJ As Long          
lastrow = ws1.Cells(Rows.Count, "B").End(xlUp).Row
emptyJ = 2
For emptyI = 2 To lastrow
If Cells(emptyI, "C").Value = "" Then
Cells(emptyJ, "AA").Value = Cells(emptyI, "B").Value
        emptyJ = emptyJ + 1
End If
Next emptyI
End Sub

Answer 1

似乎某些条件格式规则应该处理您需要的所有内容。他们在VBA。

Option Explicit

Sub CFRs()
    Dim addr1 As String, addr2 As String
    With Worksheets("sheet1")
        With .Range(.Cells(1, "B"), .Cells(.Rows.Count, "B").End(xlUp))
            addr1 = .Cells(1).Address(False, True)
            addr2 = .Cells(1).Offset(0, 1).Address(False, True)
            .FormatConditions.Delete
            With .FormatConditions.Add(Type:=xlExpression, _
              Formula1:="=AND(" & addr2 & "=TEXT(,), ISNUMBER(MATCH(" & addr1 & ", Sheet2!$O:$O, 0)))")
                .Interior.ColorIndex = 10
            End With
            With .FormatConditions.Add(Type:=xlExpression, _
              Formula1:="=NOT(LEN(" & addr2 & "))")
                .Interior.ColorIndex = 6
            End With
        End With
    End With
    With Worksheets("sheet2")
        With .Range(.Cells(1, "O"), .Cells(.Rows.Count, "O").End(xlUp))
            addr1 = .Cells(1).Address(False, True)
            .FormatConditions.Delete
            With .FormatConditions.Add(Type:=xlExpression, _
              Formula1:="=ISNA(MATCH(" & addr1 & ", Sheet1!$B:$B, 0))")
                .Interior.ColorIndex = 3
            End With
        End With
    End With
End Sub

VBA如何在旁边的单元格为空时选择值，并将这些值与另一个工作表中的另一列进行比较并突出显示

1 个答案: