Dim F1 As Byte, F2 As Byte, F3 As Byte, F4 As Byte, F5 As Byte, F6 As Byte, F7 As Byte, F8 As Byte, F9 As Byte, F10 As Byte
Dim F11 As Byte, F12 As Byte, F13 As Byte, F14 As Byte, F15 As Byte, F16 As Byte, F17 As Byte, F18 As Byte, F19 As Byte, F20 As Byte
Dim F21 As Byte, F22 As Byte, F23 As Byte, F24 As Byte, F25 As Byte, F26 As Byte, F27 As Byte, F28 As Byte, F29 As Byte, F30 As Byte
Dim F31 As Byte, F32 As Byte, F33 As Byte, F34 As Byte, F35 As Byte, F36 As Byte, F37 As Byte, F38 As Byte, F39 As Byte, F40 As Byte
Dim F41 As Byte, F42 As Byte, F43 As Byte, F44 As Byte, F45 As Byte, F46 As Byte, F47 As Byte, F48 As Byte, F49 As Byte
改为
Dim F(1 to 49)
F1 改f(1) .......
1L代码改
clm = Array(, , 3, 5, 9, 13, 12, 7, 7)
With Sheets("覆盖图示")
k = 0
For i = 2 To 7
For j = 2 To clm(i)
k = k + 1
.Cells(i, j) = f(k)
Next j, i
End With
|