Question

我正在处理一个工作表，该工作表查找D列中的值，并将该值与另一个工作簿中的另一个工作表进行比较，以查看它是否也在那里。如果该值在另一张表中，则循环移至D列中的下一个单元格。如果不是，则我要突出显示该值所在的行，但仅突出显示包含信息（A：CU）的单元格。。我似乎无法正确解决。

到目前为止，我的代码突出显示了在另一张工作表中未找到该值的单元格行。问题在于它突出显示了整行。我知道这是由于.EntireRow引起的，但是我不确定如何仅突出显示所需的单元格。

Sub check()

    Dim i As Integer
    Dim k As Integer
    Dim j As Integer

    Dim Sheet1 As Worksheet
    Dim WorkingTab As Worksheet
    Dim PerDay24 As Workbook
    Dim CurrentOrderCalendar As Workbook

    Set Sheet1 = Worksheets("Sheet1")
    Set PerDay24 = Sheet1.Parent

    Set CurrentOrderCalendar = Workbooks.Open("M:\Projects\D9#s Purging\Current Order Calendar - Copy.xlsx")
    Set WorkingTab = Worksheets("working tab")

    k = Sheet1.UsedRange.Rows.Count
    j = WorkingTab.UsedRange.Rows.Count

    For i = 2 To k
        If Application.WorksheetFunction.CountIf(WorkingTab.Range(WorkingTab.Cells(2, 1), WorkingTab.Cells(j, 1)), Sheet1.Cells(i, 4).Value) > 0 Then
            Sheet1.Cells(i, 100).Value = "Active"
        Else
                Sheet1.Rows(i).EntireRow.Interior.Color = 65535

        End If
    Next i


End Sub

我希望代码在IF语句为false时突出显示第i行的A：CU列。

如何突出显示列范围内的行

0 个答案: