Excel 宏将两列颜色进行比较，并获得琥珀色列的数据

我在两列AA和AB中有一个值列表，它们用不同的颜色填充，我的公式应该比较AA和AB列，找出哪列有琥珀色，并在J列中显示该列的值

我尝试从AB中提取值，并使用excel公式在J列中更新它，但无法构建宏，我尝试将AA和AB列与颜色进行比较，并在此基础上提取值

=INDEX($1:$1048576,I11,28)

你可以试试：

Option Explicit

Sub test()

    Dim LastRow As Long, i As Long
    Dim strValue As String

    'With statement refer to Sheet1. Change if needed
    With ThisWorkbook.Worksheets("Sheet1")

        'Find Last row of column AA in Sheet1
        LastRow = .Cells(.Rows.Count, "AA").End(xlUp).Row

        'Loop starting from row 1 to LastRow variale. Change Starting position if needed
        For i = 1 To LastRow
            'Check interior color. You may need to change RGB
            If .Range("AA" & i).Interior.Color = RGB(255, 190, 0) Then
                .Range("J" & i).Value = .Range("AA" & i).Value
            Else
                .Range("J" & i).Value = .Range("AB" & i).Value
            End If

        Next i

    End With

End Sub

---

我无法决定为什么要结束这个问题：重复、太宽泛或不清楚你在问什么。所有的理由都是正确的。嗨@Error 1004：既然OP已经发布了完全相同的问题，甚至接受了答案，你为什么要回答这个问题？@FunThomas老实说，我没有阅读评论或投票来结束这个问题。我也有投票权。我可以删除答案吗？我不介意…它非常有用，谢谢