超过255行VBA运行不正常

exceldeep · 发表于 2018-10-2 21:47

本帖最后由 exceldeep 于 2018-10-3 09:05 编辑

表格是在论坛上找的，原来是2003版本的.xls,数据超过255行，运行就会卡死，本人不是怎么会VBA(另存.xlsm也不行)，调试了几次和百度，都不行，请各位帮下忙，谢谢

刀羊 · 发表于 2018-10-2 22:59

Sub 分表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sths As Worksheet, i As Byte, mm As String
For Each sths In Sheets
If sths.Name <> "总表" Then sths.Delete
Next

On Error Resume Next
useform1.Show
For i = 2 To Sheets("总表").Range("A65536").End(xlUp).Row
mm = Sheets("总表").Cells(i, ll)

把 i 改成整型试试？

exceldeep · 发表于 2018-10-3 09:04

刀羊发表于 2018-10-2 22:59
Sub 分表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

感谢版主指导，可以正常运行，谢谢

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

[已解决] 超过255行VBA运行不正常