在工作表 A 中，我有一列仪表读数，其静态命名范围为“MeterData”。范围的第一行是读取仪表的日期 (mm/dd/yy)。其余行包含仪表读数。
紧邻该范围，在同一列中是月份，从 1 月到 12 月，我从下拉列表中选择。
在工作表 B 中，我有 12 列，标题分别是 1 月到 12 月。例如，如果在工作表 A 中选择的月份是二月，那么我希望复制命名范围，然后将其粘贴到工作表 B 中的二月标题下。工作表 B 中的第一个标题（一月）位于单元格 G4 中。
没有直接在工作表 B 中输入仪表读数是有充分理由的。
非常感谢任何有关 VBA 的帮助。我是一个真正的新手，并且正在慢慢地学习复制和改编简短的 VBA 解决方案，但实际上并不了解更多。感谢您的时间和知识。
【问题讨论】：
试试这个。我已经对代码进行了注释以解释它的作用，因此您可能会更好地根据您的要求对其进行调整。
'Examine cell above 'MeterData' range - store in mth
mth = Range("MeterData").Offset(-1, 0).Cells(1, 1).Text
'Set destination column to 20 as default
paste_column = 20
'Skip on error as Match might not find the month(?) so will remain at 20
On Error Resume Next
'Re-set destination to column using Match to find occurence of 'mth' on row 4
paste_column = WorksheetFunction.Match(mth, Sheets("WorksheetB").Range("4:4"), 0)
Remove error skipping
On error goto 0
'Copy 'MeterData' range and Paste to WorksheetB, row 5, column found above.
Range("MeterData").Copy Destination:=Sheets("WorksheetB").Cells(5, paste_column)
编辑：现在复制/粘贴特殊值
'Examine cell above 'MeterData' range - store in mth
mth = Range("MeterData").Offset(-1, 0).Cells(1, 1).Text
'Set destination column to 20 as default
paste_column = 20
'Skip on error as Match might not find the month(?) so will remain at 20
On Error Resume Next
'Re-set destination to column using Match to find occurence of 'mth' on row 4
paste_column = WorksheetFunction.Match(mth, Sheets("WorksheetB").Range("4:4"), 0)
'Remove error skipping
On Error GoTo 0
'Copy 'MeterData' range into buffer
Range("MeterData").Copy
'Paste to WorksheetB, row 5, column found above.
Sheets("WorksheetB").Cells(5, paste_column).PasteSpecial Paste:=xlPasteValues
'Remove highlighter identifying copied area
Application.CutCopyMode = False
【讨论】：