杭州交通信息网文件夹照片排序自定义:EXCEL VBA 问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 09:25:42
Sub 工资条()
Dim a(100)
ActiveCell.SpecialCells(xlLastCell).Select
t = ActiveCell.Address
r1 = Mid(Trim(t), 5, 10)
'超9行，R1上面的5不用改
'9行内，R1上面的5改为4
r2a = 26
'列数超过Y时写26否则写0
r2b = Asc(Mid(Trim(t), 2, 3)) - Asc("A") + 1
r2 = r2a + r2b
For j = 1 To r2
Range(Chr(j - 1 + Asc("A")) + "1").Select
a(j) = ActiveCell.Value
Next j
For i = r1 To 3 Step -1
Range("A" + Trim(CStr(i))).Select
Selection.EntireRow.Insert
For j = Asc("A") To Asc("A") + r2
Range(Chr(j) + Trim(CStr(i))).Select
ActiveCell.FormulaR1C1 = a(j - Asc("A") + 1)
Next j
Selection.EntireRow.Insert
Next i
End Sub
上面是自动生成工资条代码~~
但当列数超过时便无法运行~
有谁可以给我帮助？？
Dim a(100)
ActiveCell.SpecialCells(xlLastCell).Select
t = ActiveCell.Address
r1 = Mid(Trim(t), 5, 10)
'超9行，R1上面的5不用改
'9行内，R1上面的5改为4
r2a = 26
'列数超过Y时写26否则写0
r2b = Asc(Mid(Trim(t), 2, 3)) - Asc("A") + 1
r2 = r2a + r2b
For j = 1 To r2
Range(Chr(j - 1 + Asc("A")) + "1").Select
a(j) = ActiveCell.Value
Next j
For i = r1 To 3 Step -1
Range("A" + Trim(CStr(i))).Select
Selection.EntireRow.Insert
For j = Asc("A") To Asc("A") + r2
Range(Chr(j) + Trim(CStr(i))).Select
ActiveCell.FormulaR1C1 = a(j - Asc("A") + 1)
Next j
Selection.EntireRow.Insert
Next i
End Sub
上面是自动生成工资条代码~~
但当列数超过时便无法运行~
有谁可以给我帮助？？
把 26 改成更大值