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

ups2014 · 发表于 2016-7-4 15:07

需求：单击按钮，自动完成“查询sheet2，sheet3，将匹配姓名对应的水电、燃气费赋值到sheet1的人”，VBA应该怎么做到呢？

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.[a65536].End(3).Row
Set rng = Sheet2.Range("b2:b65536").Find(Sheet1.Cells(r1, 1))
      If rng Is Nothing Then
         r2 = 32767
      Else
         r2 = Sheet2.Range("b2:b65536").Find(Sheet1.Cells(r1, 1)).Row
      End If
Sheet1.Cells(r1, 2) = Sheet2.Cells(r2, 3)
Set rng = Sheet3.Range("b2:b65536").Find(Sheet1.Cells(r1, 1))
      If rng Is Nothing Then
         r3 = 32767
      Else
      r3 = Sheet3.Range("b2:b65536").Find(Sheet1.Cells(r1, 1)).Row
      End If
Sheet1.Cells(r1, 3) = Sheet3.Cells(r3, 3)
Next r1
End Sub

ups2014 · 发表于 2016-7-4 16:28

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

ups2014 · 发表于 2016-7-4 16:28

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 ...

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

heike2004 · 发表于 2016-7-4 17:19

ups2014 发表于 2016-7-4 16:28
结贴！！！！！！
heike2004不是一般的牛~几行代码机解决了，学习理解中！

函数公式
b2=IFERROR(VLOOKUP($A2,INDIRECT(B$1&"!$B$2:$C$99"),2,0),"找不到")右拉下拉

ups2014 · 发表于 2016-7-5 10:28

heike2004 发表于 2016-7-4 17:19
函数公式
b2=IFERROR(VLOOKUP($A2,INDIRECT(B$1&"!$B$2:$C$99"),2,0),"找不到")右拉下拉

这个也很好用，方便~谢谢

ups2014 · 发表于 2016-7-5 10:28

heike2004 发表于 2016-7-4 17:19
函数公式
b2=IFERROR(VLOOKUP($A2,INDIRECT(B$1&"!$B$2:$C$99"),2,0),"找不到")右拉下拉

这个也很好用，方便~谢谢

heike2004 · 发表于 2016-7-5 12:40

合并计算

查询赋值.rar (9.01 KB, 下载次数: 44)

heike2004 · 发表于 2016-7-5 12:48

多重数据透视表

查询赋值.rar (10.25 KB, 下载次数: 63)

ups2014 · 发表于 2016-7-6 13:44

heike2004 发表于 2016-7-5 12:48
多重数据透视表

今天才登陆，再试试~谢谢啦

		自动登录	找回密码
密码			免费注册