Vba代码将所选数据粘贴到从特定列开始的另一个范围内

Question

我面临着在下面提到的 vba 代码中粘贴数据的问题：

Range("B:AK").Select
Selection.Copy
Range("AN:BW").Paste

我需要将范围从 B 列开始复制到 AK 列的数据，并将其粘贴到从 AN 到 BW 的列中。但是我收到错误 1004。请帮助我更新代码的版本。和列属于同一工作表。

Answer 1

Copy>> Paste 是一个 1 行命令：

Range("B:AK").Copy Range("AN:BW")

---

编辑 1：

Dim LastRow As Long, LastCell As Range
With Worksheets("Sheet1") ' change to your sheet's name
    ' safest way to get the last row with data in column "B:AK"
    Set LastCell = .Columns("B:AK").Find(What:="*", Lookat:=xlPart, LookIn:=xlFormulas, _
                        SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
    If Not LastCell Is Nothing Then
        LastRow = LastCell.Row
    Else
        MsgBox "Error! worksheet is empty", vbCritical
        End
    End If
    .Range("B2:AK" & LastRow).Copy .Range("AN2")
End With

Answer 2

尝试：

Range("B:AK").Select
Selection.Copy
Range("AN").Select
Activesheet.Paste

如果不起作用，请尝试向 AN 添加行号，例如"AN1"

Answer 3

试试这个

Range("$B$2:$AK$1048576").Select
Selection.Copy
Range("AN2").Select
ActiveSheet.Paste

让我知道它是否有帮助。