在vba用vlookup实现跨工作簿搜索

baozhen.wu

需求：从第2个sheet 表 Incoming 开始，到第4个sheet表Open。
根据H列的值在1.xlsx的sheet1表去搜索，返回值为N/A，则删除该行。

下面是写的有问题的一个
Sub test()
Workbooks("All - WW51-Wanli-Baozhen - test.xlsx").Activate
For i = 2 To 4
   n = Sheets(i).[b1].End(4).Row
    For j = 2 To n
       Cells(j, 1) = Application.WorksheetFunction.VLookup(Cells(j, 8),[1.xlsx]Sheet1!$A:$B,2,0)
    Next j
Next i
End Sub


不知道啥问题，在 Cells(j, 1) = Application.WorksheetFunction.VLookup(Cells(j, 8),[1.xlsx]Sheet1!$A:$B,2,0)此处显示黄色当执行的时候。

doitbest

Cells(j, 1) = Application.VLookup(Cells(j, 8),workbooks("1.xlsx").sheets("Sheet1").[a:b],2,0)

baozhen.wu

doitbest 发表于 2014-12-24 08:42
Cells(j, 1) = Application.VLookup(Cells(j, 8),workbooks("1.xlsx").sheets("Sheet1").[a:b],2,0)

谢谢指导。
Sub test()
Dim sh
Workbooks("All - WW51-Wanli-Baozhen - test.xlsx").Activate
For Each sh In Worksheets
  If sh.Name <> "CTE All" Then
    n = sh.[b1].End(4).Row
    For j = 2 To n
      sh.Cells(j, 1) = Application.VLookup(sh.Cells(j, 8), Workbooks("1.xlsx").Sheets("Sheet1").[a:b], 2, 0)
    Next j
  End If
Next
End Sub

另外还有一问题 ，在调试模式下，执行“For Each sh In Worksheets” ，提示sh=空值 ，上面那行就是激活此工作簿，这是为啥呢

doitbest

For Each sh In activeworkbook.Worksheets
如果不行，就看看代码所在位置是否合理

baozhen.wu

doitbest 发表于 2014-12-30 08:35
For Each sh In activeworkbook.Worksheets
如果不行，就看看代码所在位置是否合理

不知道为何 本地打开2个Excel sh 识别到了另一个工作簿的工作表 但就是识别不到我想要的这个 就算本地只打开这一个 都识别不到  提示sh=Nothing 代码是放在此工作簿的Module里的。

doitbest

Dim sh As Worksheet
?activeworkbook.sheets.count
用以上两句再分别调试

baozhen.wu

doitbest 发表于 2014-12-30 15:04
Dim sh As Worksheet
?activeworkbook.sheets.count
用以上两句再分别调试

ok 。用此方法是可以的，就是不知道为啥运行很慢，最上面还显示not responding
Sub test()
n = Sheets.Count
For i = 2 To n
    n = Sheets(i).[b1].End(4).Row
    For j = 2 To n
      Sheets(i).Cells(j, 1) = Application.VLookup(Sheets(i).Cells(j, 8), Workbooks("1.xlsx").Sheets("Sheet1").[a:b], 2, 0)
    Next j
Next i
End Sub

doitbest

速度慢是因为逐个单元格读入，用数组代替就可以了

qsxz

doitbest 发表于 2014-12-24 08:42
Cells(j, 1) = Application.VLookup(Cells(j, 8),workbooks("1.xlsx").sheets("Sheet1").[a:b],2,0)

谢谢指导。

qsxz

doitbest 发表于 2014-12-24 08:42
Cells(j, 1) = Application.VLookup(Cells(j, 8),workbooks("1.xlsx").sheets("Sheet1").[a:b],2,0)

请教下，如果查找的工作薄未打开，workbooks("1.xlsx").sheets("Sheet1").[a:b]这一段怎么写？