Question

excel vba判断文本并赋值

如果sheet2 A列的文本在sheet1 A列相匹配的话，则将sheet2 B列的数值替换sheet1 B列的值 ，主要是判断文本是否一致，这vba的代码如何写？





Answer 1

Private Sub CommandButton1_Click()

Dim i%, c As Range

    Do

        i = i + 1

        sr = Sheet2.Cells(i, 1).Value

        If sr = "" Then Exit Do

        Set c = Sheet1.[A:A].Find(sr, lookat:=xlWhole)

        If Not c Is Nothing Then

            Sheet2.Cells(i, 2) = c.Offset(0, 1).Value

            Sheet2.Cells(i, 2).Interior.ColorIndex = 3

        End If

    Loop

End Sub

替换的标记成了红色， 已测试通过

追问

if not c is nothing then 这句什么意思？
Sheet2.Cells(i, 2).Interior .ColorIndex = 3这句提示：无效或不合格引用

追答

if not c is nothing then ，在表1 逐个查表2：A列 数据， 这句的意思是 ： 如果找到，那么

Answer 2

Sub 替换()
    For i = 1 To 100
        With Sheet1
            If Application.CountIf(Sheet2.Range("a:a"), .Cells(i, 1)) > 0 Then
                .Cells(i, 2) = Application.VLookup(.Cells(i, 1), Sheet2.Range("a:b"), 2, 0)
            End If
        End With
    Next
End Sub

Answer 3

这其实公式就能办到 百度vlookup
如果非得用vba 我可以提供代码