请高手指点下数组赋值，谢谢！

CNATB

Dim arr
arr = Sheets(openbiaoname).Range("A2:CC" & lcounts)


其中lcounts在160000-320000之间，也就是openbiaoname表有160000-320000行32列数据。。。

用OFFICE EXCEL 2010运行程序不会出错(好像也出错过一次)
用WPS EXCEL一执行到这个行，就直接跳出不执行下面的程序段。

nicleyuan

坐等高手。。                  

于箱长

到这一行是不是得让arr知道lcounts到底是多少行

suntao2000

你的代码量太少也没有讲明出错提示语，没发现问题的原因，用以下测试代码没问题。
有可能出的问题的地方：1，在循环时变量（比如下面的变量i）声明成了integer % 短整型,改成long & 长整型 即可
2,工作薄的后缀名存成了.xls 另存为 .xlsm 即可

Sub 测试()
    Dim arr, i As Long, n As Long
    openbiaoname = "Sheet1"
    lcounts = 320000
    arr = Sheets(openbiaoname).Range("A2:CC" & lcounts)
    For i = 1 To UBound(arr)
        n = n + 1
    Next
    MsgBox n
End Sub

CNATB

suntao2000 发表于 2023-5-13 17:00
你的代码量太少也没有讲明出错提示语，没发现问题的原因，用以下测试代码没问题。
有可能出的问题的地方： ...

请高手不必过于纠结完整代码，程序在officce EXCEL运行基本不会出错，就是在WPS运行时，不知道咋就老到这句就跳出子程序段


for p=1 to 5
    a
next

Function a()   
Dim lcounts As Long
   Dim arr
   Dim i, j As Long
   Workbooks(openbookname).Activate
   Sheets(openbiaoname).Select
   
  lcounts = Sheets(openbiaoname).Range("A" & Sheets(openbiaoname).Rows.Count).End(xlUp).Row
   If lcounts = 0 Then
      Exit Function
   End If
arr = Sheets(openbiaoname).Range("A2:CC" & lcounts)
‘执行到这个赋值，直接就不执行下面这个FOR了，直接跳出这个子程序
For i = 1 To UBound(oridanwei)
next   

end Function  

perfect131

wps ≠ excel ,所以 vba 还得用excel