从另一个工作簿中查找单元格的值

Question

我尝试在一个工​​作簿中搜索某个列中的列，以获取另一个工作簿中的单元格值。 我的代码：

If Workbooks("H:\Documents\Book2.xlsm").Worksheets("Sheet1").Range("A1").Value 
         = Workbooks("H:\Documents\RPB1.xlsx").Worksheets("Sheet1").Range("A1") Then
UserForm1.Show

我每次运行时都会说Subscription out of Range？我做错了什么？

我非常感谢任何帮助。 谢谢 大卫

Answer 1

 Dim rg as Range
 Dim ws as ThisWorkbook.Worksheets("Sheet1")
'You can change the column 
 For each rg in ws.UsedRange.Columns("D").Cells
 If ws.Range("A1").Value = ThisWorkbook.Worksheets("Sheet2").Range("A1") Then 
 UserForm1.Show
 End if
 Next rg

我正在努力了解你想要的东西。如果我做对了，你想查看某个工作表中某列中的每个单元格，如果它等于另一个范围内的值。 这只是一种做法。