首页 文章

比较范围内的每个单元格到不同的范围并突出显示匹配

提问于
浏览 次
0

我想要以下VBA代码：

我有两列完整的值 . 我想取这些列，并从第一个值开始，检查值是否在另一列中的任何位置 . 如果找到该值，我想突出显示整行 . 然后使用第一个范围中的第二个值重新启动，依此类推 . 两列位于不同的表格上 .

例如，这里是列

Worksheet1           
A1: 1234
A2: 2345
A3: 3456
etc...

Worksheet2
A1: 1111
A2: 2345
A3: 3333
etc...

我希望vba代码检查工作表2列A中是否有“1234”，如果是，则突出显示黄色的整行 . 然后为“2345”做同样的事情 .

excel vba excel-vba match highlight

2 回答

  • 0

    你好TimeX24我只会帮你解决，但你现在可以做的其余部分我可以做的是一个按钮是什么做的是需要sheet1单元格A1而不是在A列的sheet2上搜索它找到消息框会弹出你可能会删除该代码并添加你自己我只是不想做所有的工作，但这将让你开始 .

    Sub Button1_Click()
Dim ToBeFound As String
Dim rng As Range

Sheets("Sheet1").Activate
Range("A1").Activate

For x = 1 To 1000

ToBeFound = ActiveCell.Value

If ActiveCell.Value = "" Then
Exit Sub
Else
Sheets("Sheet2").Activate
Range("A1").Activate
Set rng = Cells.Find(What:=ToBeFound, LookIn:=xlValues, lookat:=xlPart)

If IIf(rng Is Nothing, "", rng) = "" Then
Sheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Activate
Else
'This is where you can add some of your
'Own code to get what you want.
MsgBox ("Found " & ToBeFound)
Sheets("Sheet1").Activate
ActiveCell.Offset(1, 0).Activate
End If
 End If

Next x

End Sub
    回复于
  • 0

    试试这个：

    Sub marine()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("Sheet1"): Set sh2 = Sheets("Sheet2")

    Dim c As Range, sh1rng As Range, rngTofill As Range
    With sh1
        Set sh1rng = .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
    End With

    Dim arr As Variant
    With Application
        arr = .Transpose(sh2.Range("A1", sh2.Range("A" & _
            sh2.Rows.Count).End(xlUp)))
        For Each c In sh1rng
            If Not IsError(.Match(c,arr,0)) Then
                If rngTofill Is Nothing Then
                    Set rngTofill = c
                Else
                    Set rngTofill = Union(rngTofill, c)
                End If
            End If
        Next
    End With
    rngTofill.EntireRow.Interior.Color = RGB(255, 255, 0)
End Sub

    改进编码并理解代码的大部分内容read this .
    如果您仍有疑问，请将其评论出来 . HTH .

    顺便说一下，总是有第一次发帖 . 但下次确保
    在您的问题中提供相关信息，特别是您尝试过的事情 .

    回复于

相关问题