关于VBA复制时保持行高和列宽的问题

wendq · 发表于 2014-9-15 19:17

想复制除第一行外的所有已用区域的工作表到另一个工作簿的工作表里，但复制后发现行高和列宽是都变了。大家有没有遇到这样的问题，都是怎么解决的？

我是用这一句经行复制的：wsh.UsedRange.Offset(1).Copy ts.Cells(2, 1)

liulang0808 · 发表于 2014-9-15 19:18

wsh.copy 过去，然后删除第一行

wendq · 发表于 2014-9-15 19:28

这和我的有区别吗？应该也会变吧

wormtwo · 发表于 2014-9-15 19:30

ts.Cells(2, 1) = wsh.UsedRange.Offset(1).Value

liu-aguang · 发表于 2014-9-15 19:33

VBA使用选择性粘贴,可复制列宽;但没有提供复制行高选项.
在Eexce中复制要保持行高,只有整行复制.

wendq · 发表于 2014-9-15 19:34

liu-aguang 发表于 2014-9-15 19:33
VBA使用选择性粘贴,可复制列宽;但没有提供复制行高选项.
在Eexce中复制要保持行高,只有整行复制.

保持列宽用设么函数？

liulang0808 · 发表于 2014-9-15 19:39

wendq 发表于 2014-9-15 19:28
这和我的有区别吗？应该也会变吧

wsh.copy after:=wsh
你看看新表，原来的表格式是否一致的？

yaozong · 发表于 2014-9-15 19:40

2楼方法可行

liu-aguang · 发表于 2014-9-15 19:54

wendq 发表于 2014-9-15 19:34
保持列宽用设么函数？

不直接copy过去,而是分两步:
rng1.copy
rng2.PasteSpecial Paste, Operation, SkipBlanks, Transpose '后面各种参数可去百度一下.
之所以没有行高选项,可能是因为,只要行宽定了,可设置单元格"自动换行"来自动调整行高.

wendq · 发表于 2014-9-15 20:11

liu-aguang 发表于 2014-9-15 19:54
不直接copy过去,而是分两步:
rng1.copy
rng2.PasteSpecial Paste, Operation, SkipBlanks, Transpose ' ...

能不能举个例子，如果我要保持列宽如何设置？

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

[讨论] 关于VBA复制时保持行高和列宽的问题