如何获取 VBA 代码以检查单元格值是否与列标题匹配并从同一行中的另一个单元格返回值？

Question

我已经搜索了所有内容，但似乎无法让这件作品正常工作。

我有 2 个工作表。

表 1 包含测验问题编号，然后是每个相应 q# 的分数。

表 2 包含每个 q# 作为列标题，我希望 VBA 代码从对应于右标题的 q# 中获取分数。

例如：

表 1

Question#      Score 
1               100
2                90
3                75
4                95

表 2

Q1    Q2    Q3   Q4 
100   90    75   95

表 2 中的列标题可以更改为简单地说“1”、“2”等，这样可以更容易地进行精确匹配。

我找到并使用了这段代码，但是如果它找到一个不起作用的匹配项，它会复制整个列：

Sub CopyDataDynamically()
Dim lr As Long, num As Long
Dim rng As Range
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range("a2")
num = Range("b2").Value
If num = 1 Then
    Range("B2:B" & lr).Copy
    rng.Offset(0, num - 1).PasteSpecial xlPasteValues
End If
End Sub

提前致谢！

Answer 1

我总是觉得Dim 你的Workbook 和Worksheet 是很好的做法。如果您决定扩展，您已经准备就绪。

无论有多少问题，以下代码本质上都会转置数据集。

Sub test()


Dim wbk As Workbook
Dim wks_1 As Worksheet
Dim wks_2 As Worksheet

    Set wbk = ThisWorkbook
    Set wks_1 = wbk.Sheets("Sheet1")
    Set wks_2 = wbk.Sheets("Sheet2")

    LastRow = wks_1.Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To LastRow
        wks_1.Cells(i, 1).Copy wks_2.Cells(1, i)
        wks_1.Cells(i, 2).Copy wks_2.Cells(2, i)
    Next i


End Sub

它也会复制标题。

首先我想知道最后一行在哪里，因此是LastRow 代码。然后我们简单地遍历所有行并转置数据集。

wks_1.Cells(i, 1).Copy wks_2.Cells(1, i) 行中的引用 .Cells 始终引用 Row，然后是 Col。

告诉我你的情况。