超简单的宏批量赋值错误，什么原因啊？

coben_hb · 发表于 2013-12-11 18:56

我用类似这样一个很简单的宏，Sheets(1).[p107:p131,p156:p180,p205:p229].Value = Sheets(1).[p6:p30].Value把p6:p30批量赋值到p107:p131等25个相同大小的区域中去，但怎么总是隔一个区域就出现赋值错误，错误区域只赋p6的数值，这个很简单的宏代码检查并没有错啊？这是什么原因啊？

批量赋值问题01.rar (23.67 KB, 下载次数: 24)

清风竹- · 发表于 2013-12-11 20:30

Sub copyValue02()
Dim arr
Range("P156:P10000").ClearContents
arr = Sheets(1).Range("P6:P30")
For i = 1 To 25
[P107].Resize(25, 1).Offset((i - 1) * 49, 0) = arr
Next
End Sub

复制代码

另辟蹊径

coben_hb · 发表于 2013-12-11 20:37

清风竹- 发表于 2013-12-11 20:30
另辟蹊径

哦，这回没问题了运行良好，呵呵，非常感谢！！

coben_hb · 发表于 2013-12-13 18:59

清风竹- 发表于 2013-12-11 20:30
另辟蹊径

你好，如果类似的我想把p6:z30这一个区域复制到p107:z131等25个竖向对齐的区域内，这个宏该怎么写？

yaozong · 发表于 2013-12-13 20:35

按1楼附件
Sub test()
Dim i&
For i = 107 To 1283 Step 49
Cells(i, 16).Resize(25).Value = [p6:p30].Value
Next
End Sub

清风竹- · 发表于 2013-12-13 20:42

coben_hb 发表于 2013-12-13 18:59
你好，如果类似的我想把p6:z30这一个区域复制到p107:z131等25个竖向对齐的区域内，这个宏该怎么写？

Sub copyValue03()
Dim arr
Range("P156:Z10000").ClearContents
arr = Sheets(1).Range("P6:Z30")
For i = 1 To 25
[P107].Resize(25, 11).Offset((i - 1) * 49, 0) = arr
Next
End Sub

复制代码

请测试一下。

coben_hb · 发表于 2013-12-13 21:32

清风竹- 发表于 2013-12-13 20:42
请测试一下。

测试完全正常，非常好用，呵呵谢谢啦！！

coben_hb · 发表于 2013-12-13 21:41

yaozong 发表于 2013-12-13 20:35
按1楼附件
Sub test()
Dim i&

谢谢，已经解决了

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

[求助] 超简单的宏批量赋值错误，什么原因啊？

浏览过的版块