Excel VBA将单元格分配给单元格(根据另一个工作表向每行插入单元格值)

Question

我在Excel中有两个工作表，第一个工作表包含公司列表(行:公司名称、城市、街道、电话号码、电子邮件等)，第二个工作表包含给定国家中所有有地区的城市(行:城市、地区)。根据第二个工作表中的数据，我需要在第一个工作表中的每一行中添加适当区域的名称。

请提出一些解决办法。谢谢。

这些表格的数据结构如下：

单1 (简化)：

公司名称-街道名称-城市电话号码

A-B金融有限公司卡尔-蔡司-第5街阿尔斯多夫+49 18 4514 8451

LR Munchen有限公司基督-K nig-Strasse 85 Monschau x +49 18 0181 1584

财务大师有限公司+49 15 8451 2154

单张2:

市区

阿尔斯多夫·亚琛

赫里登·安斯巴赫

Monschau _ Aachen

作为一个结果，需要在Sheet 1:中得到这个结果

公司名称?街名?市电话号码?区

A-B金融有限公司卡尔-蔡司-第5街-阿尔斯多夫+49 18 4514 8451 \亚琛

LR Munchen有限公司基督-K nig-Strasse 85 Monschau x +49 18 0181 1584 x Aachen

财务大师有限公司Castorstrasse 2连赫里登电话：+49 15 8451 2154 x Ansbach

Answer 1

首先，您需要一种方法来匹配两个工作表中的数据，例如，每个地区的街道列表。如果没有提供这些信息，那么没有任何程序可以帮助您。

一旦您有了这个，代码就应该是直接的：

1. 遍历第一页中的每一行
2. 匹配来自工作表的信息(此信息在您的解释中缺失)
3. 将信息从第二页添加到第一页

如果您提供有关数据结构的更多信息，我可以添加一些代码。