VBA - 如何根据匹配值将一张表中的二维表中的值粘贴到另一张表的列中

Question

我对 VBA 非常缺乏经验。我通过谷歌搜索获得的 VBA 所取得的成就。所以，我所知道的根本没有深度。

好的，这就是我所拥有的：

在工作簿中，我有两张工作表。让我们称它们为 Sheet1 和 Sheet2。

在 Sheet1 中，我有这个二维表，其中 ###s 是与匹配的行和列标签相对应的一些值：

年龄     男性    女性
18-29   #####    ######
30-44   #####    ######
45+      #####   ######

以上所有的单元格都是 D2:F5

现在，在 Sheet2 中，我有 3 列：ID Age Sex，从 A7 开始。所以，标题在 A7、B7、C7 中

您可能会看到我的目标。

我有数千行。

我需要在 D7 列中放置适当的###，标题金额基于性别 (B) 和年龄 (C) 中的匹配值。

所以，如果 Sheet1 中的交叉表具有这些值：

年龄     男性       女性
18-29   123       456
30-44   789       101112
45+      131415   161718

然后在 Sheet2 中我想看看：

ID   性别          年龄       金额
1    女性    30-44     101112
2    男性        18-29     123

等在专栏下方。

而且我一点也不知道该怎么做。到目前为止，我最大的 VBA 成就是将 CSV 文件导入到活动工作表中，所以...

Answer 1

一个问题是：Sheet2 中是否手动输入“性别”和“年龄”？

您可能想要使用该功能：

Application.Worksheetfunction.Vlookup(...)

当然，您需要为每个表格设置某种类型的标识，例如：

Dim wSheet1 as Worksheet
Dim wSheet2 as Worksheet
Set wSheet1 = Worksheets("Sheet1")
Set wSheet2 = Worksheets("Sheet2")

就像在普通工作簿中使用它一样。

例子：

wSheet2.cells("A7").value = "1" 'Note: You can improve this by looking at an empty row automatically with a code
wSheet2.cells("B7").value = application.worksheetfunction.vlookup("18-29",wSheet1.Range("D4:F9"),3,0)

您可以通过编辑搜索条件“18-29”来根据自己的喜好改进程序

干杯