Question

我将在前言中说我是Visual Basic的极端初学者。我在大学五六年前上过课，后来我决定不再知道如何编写代码，或者在课堂上没有给予足够的重视。

问题：我有一张＆＃34;表＆＃34;从D4开始。我把表放在引号中，因为它不仅仅是一个数据集，而且我没有经历从数据功能区实际插入表的过程。我想拿这个表（这个例子有四个现有的）并将它复制到这个表下面D列的下一个可用行中，尽管我更喜欢在美学中包含一个空白行。请参阅下面的我的＆＃34;愿景＆＃34;之前和之后。任何帮助将不胜感激。

编辑：注意我无法将图片粘贴为菜鸟，所以如果您需要更多细节，请联系我，我可以为您提供图片。

Answer 1

这对你有用

Sub SpecialCopy()
    Dim lastRow As Long: lastRow = Cells(Cells.Rows.Count, 4).End(xlUp).Row
    Range("D4:D" & lastRow).Copy Destination:=Range("D" & lastRow + 1)
End Sub

VBA 101 =＆gt;在工作表中的最后一行之后插入行

1 个答案: