13问答网 > VBA复制表1的A:J最后13行，粘贴到表2的A1:M10(转置)。图

VBA复制表1的A:J最后13行，粘贴到表2的A1:M10(转置)。图

VBA复制表1的A:J最后13行，粘贴到表2的A1:M10(转置)

2025-03-13 15:11:22

推荐回答（1个）

回答1：

Option Explicit

Sub test()
    Dim ln As Long, k As Long
    Dim dat As Worksheet, tag As Worksheet
    Set dat = Sheets("Sheet1") '这里改成你要复制的单元格区域所在的工作表名字
    Set tag = Sheets("Sheet2") '这里改成你要复制到的目标工作表的名字
    ln = dat.[a60000].End(3).Row
    k = ln - 13 + 1
    dat.Range("a" & k & ":j" & ln).Copy
    tag.[a1].PasteSpecial Transpose:=True
    Set tag = Nothing
    Set dat = Nothing
End Sub