Vlookup 到另一个工作簿

Question

这是我的困境。

我有两张工作表，一张包含客户姓名，另一张我想根据城市将姓名复制到其中。

例如：

与每列关联的是姓氏、名字和城市。 我有数百个与不同城市相关联的名字，我想要的是从worksheet1.xls将所有纽约客户复制到worksheet2.xls，无论是当我打开worksheet2时还是通过宏，哪个更容易，因为姓氏在一个单元格中并且第一个名字在另一个中，我必须复制两个名字。

我发现可以将单元格从一个工作表链接到另一个工作表，然后根据条件进行 vlookup。这是最好的最简单的方法还是还有其他方法？

Answer 1

执行此操作的一种方法是在工作表 2 中添加查询工作表 1 的远程数据引用。
然后，当您打开工作表 2 时，刷新数据以从工作表 1 获取最新数据，

例如

SELECT * FROM worksheet1.xls WHERE City=YourChoice

这不是语法正确的查询，请使用查询编辑器帮助您构建它

。如果您需要帮助，请包括您正在使用的 Excel 版本。

Answer 2

我可以提供这个宏作为答案，它有以下改进空间：

• 停用闪烁application.ScreenUpdating
• LastName和FirstName作为数组，以添加更多数据并避免许多窗口更改
• 使用打开和关闭直接打开Excel，而不是事先打开。

这是代码

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'
Dim City As String
Dim FirstName As String
Dim LastName As String

City = Range("B4").Value 'B4 cell where city is
Range("C4").Select 'C4 cell where name is pasted

'go to the book, shhet and firs range with names
Windows("book_with_cities.xlsx").Activate
Sheets("year2011").Select
Range("A4").Select 'where  the data start
'main copy loop
Do While ActiveCell.Value <> ""
    'if is the city I´m lookin for copy the data to my excel of results
    If ActiveCell.Value = City Then
        LastName = ActiveCell.Offset(0, 1).Value
        FirstName = ActiveCell.Offset(0, 2).Value
        Windows("book_with_results.xlsx").Activate
        Sheets("Your_city_data").Select
        ActiveCell.Value = LastName
        ActiveCell.Offset(0, 1).Value = FirstName
        ActiveCell.Offset(1, 0).Select
        Windows("book_with_cities.xlsx").Activate
        Sheets("year2011").Select
    End If
    ActiveCell.Offset(1, 0).Select
Loop
'going back to your sheet
Windows("book_with_results.xlsx").Activate
Sheets("Your_city_data").Select

End Sub

希望这有帮助

最好的问候

艾伦