这段代码超过65536行结果就是错误

shi7361

请问老师，如何破解行数限制？代码如下
Sub 单机()
   Dim wb As Workbook
   Application.ScreenUpdating = False
      Set wb = Workbooks.Open(ThisWorkbook.Path & "\记录.xlsm", Password:="123", UpdateLinks:=False)
   With ThisWorkbook.Worksheets("辅料")
      On Error Resume Next
        For I = 2 To wb.Worksheets("辅料使用记录").Range("A1048576").End(xlUp).Row
            If wb.Worksheets("辅料使用记录").Range("C" & I).Value = .[a1].Value And wb.Worksheets("辅料使用记录").Range("I" & I).Value & "" = .[b1].Value Then
                .Range("A5").Resize(11, 8) = wb.Worksheets("辅料使用记录").Range("b" & I).Resize(11, 8).Value
                Exit For
            End If
        Next I
        For m = 2 To wb.Worksheets("添加剂使用记录").Range("A1048576").End(xlUp).Row  
            If wb.Worksheets("添加剂使用记录").Range("C" & m).Value = .[a1].Value And wb.Worksheets("添加剂使用记录").Range("I" & m).Value & "" = .[b1].Value Then
                .Range("A18").Resize(11, 8) = wb.Worksheets("添加剂使用记录").Range("b" & m).Resize(11, 8).Value
                Exit For
            End If
        Next m
   End With
   wb.Close False
   Set wb = Nothing '释放内存
   Application.ScreenUpdating = True
End Sub

02761752696

将文件另存为  xlsm  格式 xls格式为03版最大行数65536

shi7361

02761752696 发表于 2018-8-29 17:16
将文件另存为  xlsm  格式 xls格式为03版最大行数65536

文件格式是xlsm呀

lsc900707

03版的office最大行数就是65536行。

shi7361

声明一下：我用的是excel2010，文件格式xlsm

huang1314wei

shi7361 发表于 2018-8-30 08:35
声明一下：我用的是excel2010，文件格式xlsm

你的声明有什么用呢，你直接把出错的附件传上来，问题不就真相大白吗？

shi7361

huang1314wei 发表于 2018-8-30 09:04
你的声明有什么用呢，你直接把出错的附件传上来，问题不就真相大白吗？

附件超级大，我认为是代码的变量声明方法不对，所以把查询的代码发上来；如果是高手看看代码就知道为啥不能突破7万行了；我记得是变量声明的问题，忘了咋解决了

huang1314wei

shi7361 发表于 2018-8-30 09:16
附件超级大，我认为是代码的变量声明方法不对，所以把查询的代码发上来；如果是高手看看代码就知道为啥不 ...

关键是你的代码当中没有看到有声明变量啊，仅看你的代码也看不出问题，如果说是变量问题，那肯定是变量 I 和 m 的问题，如果你把 I 或者 m 声明成Interger 那超过65536肯定不行，因为interger最大也只有32767  

shi7361

估计就是I、m的问题

shi7361

For m = 2 To wb.Worksheets("添加剂使用记录").Range("A1048576").End(xlUp).Row 或者这句有问题