Excel VBA匹配不同工作簿上的标题名称并将列复制到主工作簿

Question

我想运行一个宏来根据源工作簿中的标题字符串查找列，复制标题下方的可见行，然后粘贴到指定列位置的不同主工作簿中。

我需要从大约 5 个特定列中复制数据，例如“零件名称”、“零件编号”、“供应商”等。我需要使用字符串值，因为我在主工作簿上粘贴值的位置有不同的标题。源工作簿上的“Part Number”可能会转换为 Master 工作簿上的“Part #”。

我已经尝试了下面的代码，它可以工作，但速度很慢，而且这只是 1 列。

任何想法如何清理此代码并使其运行更顺畅和快速？

谢谢！

我已经尝试调用一个优化功能，该功能可以进行屏幕更新、自动计算等。

Sub Import()

Call Optimize

Dim source As String Dim dest As String

'Clears the Table Call CleanTheTable

source = Worksheets("Set-Up").Range("B11") '<=== Source workbook based on cell value

dest = Worksheets("Set-Up").Range("B8") '<=== Destination workbook based on cell value

'------------ Header Value to Look Up -------------     

Workbooks(source).Worksheets("Source Sheet").Range("Table1[Value to Look Up]").SpecialCells(xlCellTypeVisible).Copy _     Destination:=Workbooks(dest).Worksheets("INPUTS1").Range("A2")

End Sub

Answer 1

就个人而言，我会完全避免使用复制方法。这太慢了，因为它也会复制格式。如果您不需要复制格式，那么我直接将单元格等同起来：

TargetSheet.cell.value = SourceSheet.cell.value

这通常比使用 .copy 方法快得多。

我希望这会有所帮助。