[已解决]range之间赋值，如何将格式也带过去？

bhguo

我有一个excel vba程序，需要将某区域复制多份到其他区域，例如：Rows("1:6") 复制到 Rows("7:12")。
此前采用range.copy方法，但执行多次后速度很慢；现改为range赋值，如：Rows("7:12").Value = Rows("1:6").Value，速度大幅提升，但格式没带过去，仅把值带过去了。
请问如何采取赋值的方法，同时把格式带过去？

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-30 17:38

bhguo 发表于 2013-8-30 17:31
无法统一设置格式，我们需要从其它地方获取数据，根据数据条数决定复制次数，是活的，不是固定死的。

Application.CutCopyMode = False
你试试 我在网上搜的清空剪切板 复制 粘贴 一次  执行一次 这个冒失不行
你试试把这个

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
       你的代码
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

跳转到最佳答案楼层

我心飞翔410

可以统一设置格式嘛

bhguo

无法统一设置格式，我们需要从其它地方获取数据，根据数据条数决定复制次数，是活的，不是固定死的。

我心飞翔410

bhguo 发表于 2013-8-30 17:31
无法统一设置格式，我们需要从其它地方获取数据，根据数据条数决定复制次数，是活的，不是固定死的。

Application.CutCopyMode = False
你试试 我在网上搜的清空剪切板 复制 粘贴 一次  执行一次 这个冒失不行
你试试把这个

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
       你的代码
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

bhguo

你太棒了！设置Application.Calculation = xlCalculationManual后非常有效，这样我就可仍然采用copy方法。谢谢！

yyyydddd8888

我心飞翔410 发表于 2013-8-30 17:38
Application.CutCopyMode = False
你试试 我在网上搜的清空剪切板 复制 粘贴 一次  执行一次 这个冒失 ...

学习了！高明啊！