如何把一列数据依次复制粘贴(转置)到行

xssbj · 发表于 2018-8-11 16:13

本帖最后由 xssbj 于 2018-8-11 16:44 编辑

如题，请帮帮忙。宏或者函数都可以的。菜鸟搞不定啊

不知道为什么 · 发表于 2018-8-11 16:18

来个循环不可以啊

xssbj · 发表于 2018-8-11 16:19

菜鸟不会弄啊

xiangbaoan · 发表于 2018-8-11 16:33

Sub test()
[e2].Resize(9999, 14).Clear
Application.ScreenUpdating = False
For r = 1 To [b65536].End(3).Row Step 14
Cells(r, 2).Resize(14).Copy
[e65536].End(3)(2).PasteSpecial Transpose:=True
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

xssbj · 发表于 2018-8-11 16:36

谢谢大侠

约定的童话 · 发表于 2018-8-11 16:49

是这样的效果吗？序列号需要自己添加下！
https://pan.baidu.com/s/1s9e5fVepuewQlgcGc3ktow文件在这里

wwz851025 · 发表于 2018-8-12 14:50

xiangbaoan 发表于 2018-8-11 16:33
Sub test()
[e2].Resize(9999, 14).Clear
Application.ScreenUpdating = False

麻烦老师移步到这里http://club.excelhome.net/thread-1430279-1-1.html
请帮我看看这个问题怎么解决，急！
多个列表框实现单选和多选功能。先谢谢了！

wwz851025 · 发表于 2018-8-12 14:59

约定的童话发表于 2018-8-11 16:49
是这样的效果吗？序列号需要自己添加下！
https://pan.baidu.com/s/1s9e5fVepuewQlgcGc3ktow文件在这里

麻烦老师移步到这里http://club.excelhome.net/thread-1430279-1-1.html
请帮我看看这个问题怎么解决，急！
多个列表框实现单选和多选功能。先谢谢了！

		自动登录	找回密码
密码			免费注册

[已解决] 如何把一列数据依次复制粘贴(转置)到行