[已解决]提示应用程序定义或者对象定义错误

hanjia · 发表于 2016-7-11 18:37

本帖最后由 hanjia 于 2016-7-12 16:18 编辑

代码程序需要行 455 个单元格从j1到 iv1最后一个格才247 还差208个单元格
Sheet1整行才256格
还剩208没有空格来完成怎么让他在 Sheet2 继续完成？？？？？？？？

工作表10.zip (12.95 KB, 下载次数: 3)

ghostjiao · 发表于 2016-7-11 20:07

换10版本或者拆成两个数组，分别放到2个工作表

scl5801 · 发表于 2016-7-11 20:17

最好用两个数组分别赋值

hanjia · 发表于 2016-7-11 20:21

本帖最后由 hanjia 于 2016-7-11 20:23 编辑

ghostjiao 发表于 2016-7-11 20:07
换10版本或者拆成两个数组，分别放到2个工作表

这是复式计算的拆不了
10版以上是有16348多个单元格
问题是16348不够又拆分不了
增加语句完成不了吗？

hanjia · 发表于 2016-7-11 20:31

本帖最后由 hanjia 于 2016-7-11 20:33 编辑

scl5801 发表于 2016-7-11 20:17
最好用两个数组分别赋值

怎么赋值？？？
能把剩余的赋值出来吗？

scl5801 · 发表于 2016-7-11 21:03

本帖最后由 scl5801 于 2016-7-11 21:04 编辑

生成brr数组时
brr装sheet1的，用crr装sheet2的，加一个限制就好

hanjia · 发表于 2016-7-11 21:06

scl5801 发表于 2016-7-11 21:03
生成brr数组时
brr装sheet1的，用crr装sheet2的，加一个限制就好

能祥细点吗？我是个菜鸟刚在学VBA 的

scl5801 · 发表于 2016-7-11 21:55

这个最佳答案由 scl5801 给出，感谢 scl5801 的回答。

单击隐藏图章

  试试这样行不

If x <= 246 Then
   Range("j1").Offset(0, x).Resize(UBound(brr)) = brr
Else
   Sheet2.Range("j1").Offset(0, x - 246).Resize(UBound(brr)) = brr
End If
Next

hanjia · 发表于 2016-7-12 09:12

scl5801 发表于 2016-7-11 21:55
试试这样行不

If x

可以  谢谢
请教一下如果我想再增加 Sheet3  应该怎么增加？？？

昨晚怎么试都增加不上 Sheet3
比如下面这样到 Sheet2 就停住了  不会去Sheet3 就像原来你没帮忙增加Sheet2停在Sheet1一样
If x <= 246 Then
   Range("j2").Offset(0, x).Resize(UBound(brr)) = brr
Else
   If x <= 493 Then
   Sheet2.Range("j2").Offset(0, x - 246).Resize(UBound(brr)) = brr
   Else
      Sheet3.Range("j3").Offset(0, x - 493).Resize(UBound(brr)) = brr
   End If
End If
Next
End Sub

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

[已解决]提示 应用程序定义或者对象定义错误

评分

[已解决]提示应用程序定义或者对象定义错误