Excel 在VBA中移动具有其标头的数组

因此，我一直在尝试将一个数组从一个表（表2）转移到另一个表（表5），并重命名新的数组，这样我就不会对使用它们感到困惑。 我的问题是，我得到了传输的数组中所有可用的值，但是我错过了要在sheet5上再次使用的标题。代码很简单，但我不知道在哪里可以添加一些东西来获取标题

代码：

Sheets("Equipement").Select 'Equipement is the Sheet2
Sheets(2).Range("Tableau_equipement").Select 'Tableau_equipement is the name of the array from Sheet2
Selection.Copy Sheets(5).Range("A5") 'pasting the array on the Sheet5.

我还添加了两个屏幕截图：（第一个是第2页上的截图，第二个是第5页上的结果）：

---

感谢您的帮助，请随时询问更多详细信息，并原谅我的英语不好。

结束回答的最终代码：

Sheets("Equipement").ListObjects(1).Range.Copy Sheets(5).Range("A5")

---

您正在使用表或

ListObject

。。。所以

ListObject.Range.Copy

应该把所有东西都带过来。那么“Tableau\u Equipment”是ListObject吗？对不起，我对VBA和编程基本上是新手。我刚试过ListObject.Range（“Tableau_Equipment”）。选择，但出现了一个错误。

Sheets（“Equipment”）.ListObjects（1.Range.Copy Sheets（5.Range（“A5”）

。哦，好吧，那么ListObject没有名称，只有一个数字？我想是有办法命名的，但是谢谢你的帮助，它工作得非常好！您也可以通过名称来引用

ListObject

：

Sheets（“设备”）。ListObjects（“Tableau\u Equipment”）

。是的，我只是没有想到删除它，只是留在工作表上，因为我还有一些代码可以更改显示的工作表。谢谢你注意到了。