请教大神【vba吧】

Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("数据").[b2].Resize(1000, 10).ClearContents
arr = Sheets("数据").UsedRange
For i = 2 To UBound(arr)
arr(i, 2) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 3) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 4) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 5) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 6) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 7) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 8) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 9) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 10) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 11) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 12) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 13) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 14) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 15) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 16) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 17) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 18) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 19) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 20) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 21) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 4, 1)
arr(i, 22) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), 5, 1)
arr(i, 23) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 3, 1)
arr(i, 24) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), 4, 1)
Next i
Sheets("数据").Columns("A:k").NumberFormat = "@" '设置文本格式
Sheets("数据").Columns("A:k").HorizontalAlignment = xlCenter '水平居中
Sheets("数据").UsedRange = arr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

代码写到24 行的时候运行起来还是正常的
但到了25行却出现下标越界
这是咋回事呢

我不知道是usedRange区域多大，很可能只有24列

超数组下界了吧

不懂可以加我，vba1994

Sub ss()
Sheets("数据").[b2].Resize(1000, 10).ClearContents
arr = Sheets("数据").UsedRange
For i = 2 To UBound(arr)
m = 1
For j = 3 To 5
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
m = 10
For j = 3 To 5
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
m = 19
For j = 3 To 4
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
Next i
Sheets("数据").Columns("A:k").NumberFormat = "@" '设置文本格式
Sheets("数据").Columns("A:k").HorizontalAlignment = xlCenter '水平居中
Sheets("数据").UsedRange = arr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Sub ss()
Sheets("数据").[b2].Resize(1000, 10).ClearContents
arr = Sheets("数据").UsedRange
For i = 2 To UBound(arr)
m = 1
For j = 3 To 5
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 3, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
m = 10
For j = 3 To 5
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 4, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
m = 19
For j = 3 To 5
For k = 3 To 5
m = m + 1
arr(i, m) = Mid(arr(i, 1), 5, 1) & Mid(arr(i, 1), j, 1) & Mid(arr(i, 1), k, 1)
Next
Next
Next i
Sheets("数据").Columns("A:k").NumberFormat = "@" '设置文本格式
Sheets("数据").Columns("A:k").HorizontalAlignment = xlCenter '水平居中
Sheets("数据").UsedRange = arr
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

debug.printubound(arr)

检查下有没有第25列

日	一	二	三	四	五	六

请教大神

扫二维码下载贴吧客户端