Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 177|回复: 4

[求助] vb 跨工作表,如何实现 列 复制单元格的值 到行

[复制链接]
发表于 2019-7-17 07:51 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
求高手帮忙,如何把实现    按一下  PKG表里面的 “Label ”   按钮   就能实现 PKG表 列 D4:D22  单元格里面的 值  复制到  Label 表 按行从上往下粘贴。


2345截图20190717073522.png
2345截图20190717073619.png

MOA.zip

21.14 KB, 下载次数: 7

发表于 2019-7-17 12:27 | 显示全部楼层
啥意思?完全看不懂。
D4:D22是序号,序号有什么好复制的?其他列的内容又不一样,标题都不一样,如何复制?
这种整块区域复制,手工弄一下就好了,还要代码啊?
回复

使用道具 举报

发表于 2019-7-17 20:09 | 显示全部楼层
本帖最后由 qlh1978 于 2019-7-17 20:11 编辑

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空格)
回复

使用道具 举报

 楼主| 发表于 2019-7-19 00:12 | 显示全部楼层
qlh1978 发表于 2019-7-17 20:09
Sub 复制()
    Dim arr
    Dim K As Integer

2345截图20190719000508.png
回复

使用道具 举报

发表于 2019-7-19 09:06 | 显示全部楼层

你附件文件与你这个截图内容完全不同,如果是复制固定区域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")对应改下就行了

评分

参与人数 1学分 +2 收起 理由
lsyong + 2 学习了

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2019-8-20 22:04 , Processed in 0.062400 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表