有什么方法可以将行保存在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