Excel宏：通过搜索标题来复制动态列

Question

我是使用Excel Macro的初学者。我正面临着复制数据列的问题。它有一个庞大的数据，在excel工作表中有很多列和行。我需要在第一行搜索以检测“值”的单词，然后将整个列的值复制到另一个表。我可以使用索引和匹配功能吗？但下面的代码显示运行时错误1004.请给我一些想法来解决这个问题。谢谢你。

Dim LastRow As Long
Dim LastCol As Long

LastRow = Worksheets("data").Range("A" & Rows.Count).End(xlUp).Row
LastCol = Worksheets("data").Cells(1, Columns.Count).End(xlToLeft).Column
Worksheets("filtered").Range("I2").value = Worksheets("data").Index("A1" & LastRow & ":AZ" & LastCol, Application.WorksheetFunction.Match("Value", "A1" & LastCol, 0))