统计问题

any1009

各位老师：

我做了一个统计的表，运行时偶有报错，而且很诡异，查了半天不知道为什么会这样，具体如下：

Set wbb = GetObject(p)
    zh1 = wbb.Sheets("总表").[B65536].End(xlUp).Row
    arr = wbb.Sheets("总表").Range("A6:L" & zh1)
    Windows(wbb.Name).Visible = True
    wbb.Close 0
Set wbb = Nothing
For i = 2 To UBound(arr)
    brr(i, 1) = arr(i, 1)
    brr(i, 2) = arr(i, 2)
    brr(i, 3) = arr(i, 3)
    brr(i, 4) = arr(i, 4)
    brr(i, 5) = arr(i, 5)
    brr(i, 6) = arr(i, 6)
    brr(i, 7) = arr(i, 7)
    brr(i, 8) = arr(i, 8)
    brr(i, 9) = arr(i, 9)
    brr(i, 10) = arr(i, 10)
    brr(i, 11) = arr(i, 11)
    brr(i, 12) = arr(i, 12)
    brr(i,13)="XXX"   
Next
MsgBox UBound(arr)
MsgBox i
Sheets("明细").[A1].Resize(UBound(brr), UBound(brr, 2)) = brr
现在遇到的情况是，Ubound(arr) 明明msg是2228，但 i 却msgbox是2229，最后一句Sheets("明细").[A1].Resize(UBound(brr), UBound(brr, 2)) = brr报错（1004，应用程序定义或对象定义错误）。一堆表就两张表在统计的时候有问题，表检查过了，格式都没有问题.

请各位老师看看是什么问题。
在公司，添加附件被禁了，连图片都无法上传，请见谅。
谢谢！~

通过查看明细表和原始表，发现问题了，两张原始表格都是有一个单元格是文本格式，值是以“=”号开头，这个如何写呢？
谢谢！~


已解决。我把写入的单元格格式设置为文本，就不会出现写入时值以“=”开头导致计算错误的这种情况了。

any1009

通过查看明细表和原始表，发现问题了，两张原始表格都是有一个单元格是文本格式，值是以“=”号开头，这个如何写呢？

abc123281

最好上传附件来看看

不知道为什么

any1009 发表于 2018-6-25 16:16
通过查看明细表和原始表，发现问题了，两张原始表格都是有一个单元格是文本格式，值是以“=”号开头，这个 ...

我想你说的 “=” 这个问题，应该不是这里出错的原因。
你给的代码不全，我想知道 你上面的 brr 数组是怎么定义的。我的理解是你brr 出了问题。你排查下。

lsc900707

估计是brr的问题。

不知道为什么

any1009 发表于 2018-6-25 16:16
通过查看明细表和原始表，发现问题了，两张原始表格都是有一个单元格是文本格式，值是以“=”号开头，这个 ...

简单来说，你这段代码里，brr 是个动态数组， 你都没有定义。就会有 程序定义或对象定义错误的提示。

any1009

brr是定义过了的，dim brr(1 to 10000,1 to 4)  ，关键是我现在把两张原表里单元格开头出现的“=”去掉就没有问题了，但这样一来，值就不对了。

不知道为什么

any1009 发表于 2018-6-26 09:29
brr是定义过了的，dim brr(1 to 10000,1 to 4)  ，关键是我现在把两张原表里单元格开头出现的“=”去掉就没 ...

想办法上传出错附件啊，否则猜来猜去的，效率太低

any1009

现在就是原表里有单元格以"="开头，在写入brr的时候就报错