单击按钮，自动完成“查询sheet2，sheet3，将匹配姓名对应的水电、燃气费赋值到she...

11020044

结贴！！！！！！
heike2004不是一般的牛~几行代码机解决了，学习理解中！

pnlxw

heike2004 发表于 2016-7-4 16:06
Sub AutoMatch()
Dim rng As Range, r1 As Integer, r2 As Integer, r3 As Integer
For r1 = 2 To Sheet1 ...

请问如果是查询不规则表格的赋值要怎么改代码？如图：在工作表2中查询如何对应数字赋值

heike2004

Dim r As Integer, c As Integer, rng As Range, k As Integer

For c = 1 To 9 Step 2

    For r = 2 To 12

        Set rng = Sheet1.Range("a2:a65536").Find(Sheet2.Cells(r, c))

            If rng Is Nothing Then
         
                MsgBox "找不到"
            
            Else
         
                k = Sheet1.Range("a2:a65536").Find(Sheet2.Cells(r, c)).Row
            
            End If
         
        Sheet2.Cells(r, c + 1) = Sheet1.Cells(k, 2)
     
    Next r

Next c

End Sub

heike2004

pnlxw 发表于 2016-11-22 15:38
请问如果是查询不规则表格的赋值要怎么改代码？如图：在工作表2中查询如何对应数字赋值

答案在楼下。。。。

pnlxw

heike2004 发表于 2016-11-23 13:28
Dim r As Integer, c As Integer, rng As Range, k As Integer

For c = 1 To 9 Step 2

谢谢，测试成功。

dpqlovehack

heike2004 发表于 2016-11-23 20:08
答案在楼下。。。。

牛人啊，真是厉害，我要好好学习了！