vb 跨工作表，如何实现 列 复制单元格的值 到行

lsyong

求高手帮忙，如何把实现    按一下  PKG表里面的 “Label ”   按钮   就能实现 PKG表 列 D4：D22  单元格里面的 值  复制到  Label 表 按行从上往下粘贴。

hfwufanhf2006

啥意思？完全看不懂。
D4:D22是序号，序号有什么好复制的？其他列的内容又不一样，标题都不一样，如何复制？
这种整块区域复制，手工弄一下就好了，还要代码啊？

qlh1978

Sub 复制()
    Dim arr
    Dim K As Integer

    arr = Sheets("PKG").Range("C4:C22")
    With Sheets("Label")
        K = .Range("A1").End(xlDown).Row + 1
        .Cells(K, 1).Resize(1, 19) = Application.Transpose(arr)
    End With
End Sub

注意：你的表名多了一个空格   （Label空格）

lsyong

qlh1978 发表于 2019-7-17 20:09
Sub 复制()
    Dim arr
    Dim K As Integer

hfwufanhf2006

lsyong 发表于 2019-7-19 00:12

你附件文件与你这个截图内容完全不同，如果是复制固定区域L2:W31的内容，一句代码就搞定了。你也没说复制到Label表的那个起始单元格，我就假设是A列吧，就是自动放在a列的最后面的意思。如果不是，自己改下列字母就行了
Range("L2:W31").Copy Worksheets("Label ").Cells(Worksheets("Label ").[a100000].End(3).Row + 1, 1)



注意：你表单名Label后面带有一个空格，仔细看Worksheets("Label ").Cells(Worksheets("Label ")，Label后面都带有一个空格，否则找不到表名会出错
如果要修改复制范围，把Range("L2:W31")对应改下就行了