有什么方法可以將行保存在excel宏中以備將來使用？

Question

我正在構建一個宏，以將一個長表拆分為多個小表，並且我希望將標頭保存在變量中，以便能夠將其快速粘貼到小表的頂部。

我做了一個宏來做第一個（很簡單）

Sheets("Feuil1").Select
Rows("2:2").Select
Selection.Copy
Sheets("PageImpression").Select
Rows("2:2").Select
ActiveSheet.Paste

如何將Selection.Copy保留在變量中，並在需要時將其粘貼？

Answer 1

答案是將行存儲到變量中。 然后在需要時調用該變量。 另外，無需復制/粘貼並選擇所有內容：)

Option Explicit

Dim myHeader as Variant

myHeader = Sheets("Feuil1").Rows(2)

Sheets("PageImpression").Rows(2) = myHeader

更新資料

要與Range對象一起使用，請執行以下操作：

Dim myHeader As Range

Set myHeader = Sheets(1).Rows(2)

Sheets(2).Rows(2).Value = myHeader.Value

更新2

做到這一點的更簡潔（內存+省時）的方法是：

Option Explicit

Dim myHeader as Variant (or Range)

With Sheets("Feuil1")

    myHeader = .Range(.Range("A1"),.Range("A" & .Columns.Count).End(xltoLeft).Column))
    'for variable type Range, add "Set =" in front of line above

End With

Sheets("PageImpression").Range("A2") = myHeader
'For Range Sheets("PageImpression").Range("A2").Value = myHeader.Value