将数据从一行复制到另一列的最后一行

Question

我得到

错误1004 VBA应用程序定义的

Sub Example()
Dim finalRowF As Integer
finalRowF = Cells(Rows.Count, "F").End(xlUp).Row
Range("A1").EntireRow.Copy Cells(finalRowF + 1, "H")
End Sub

Answer 1

怎么样：

Sub Example()
Dim ws As Worksheet
Dim FinalRowF As Long
Set ws = Sheets("Sheet1") 'Change as necessary
FinalRowF = ws.Range("F" & ws.Rows.Count).End(xlUp).Row

Set CopyRange = ws.Range("A2:A" & FinalRowF)
CopyRange.SpecialCells(xlCellTypeVisible).Copy
ws.Range("H2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub