excel - 我可以添加什么 VBA 代码以便粘贴到下一个空白行而不是复制数据？

Question

这是用于复制 Z4:Z11 然后将其粘贴到一行中的代码。但是，当我再次运行它时，它只是粘贴在当前数据上，我想将它运行到下一行。

Sub SaveLineup()
'
' SaveLineup Macro
'

'
Range("Z4:Z11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
Range("A3").Select
Sheets("Sheet1").Select
Application.CutCopyMode = False
Range("Z13").Select
End Sub

标签： excelvbacopy-paste

Answer 1

尝试这个：

Option Explicit
Sub Test()

Dim sht As Worksheet, sht2 As Worksheet, lastrow As Long

Set sht = Worksheets("Sheet1")
Set sht2 = Worksheets("Sheet2")
lastrow = sht2.Cells(sht2.Rows.Count, 1).End(xlUp).Row + 1

sht2.Range(sht2.Cells(lastrow, 1), sht2.Cells(lastrow + 7, 1)).Value = _
sht.Range(sht.Cells(4, 26), sht.Cells(11, 26)).Value

End Sub