- ©«¤l
- 11
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-2-14
- ³Ì«áµn¿ý
- 2021-5-3
|
µù¸Ñ- Sub zz()
- Dim c, n& '©w¸qc¡BnÅܼƬ°long(±`¾ã¼Æ)
- c = Array(0, 1, 2) 'c µ¥©ó°}¦C(0,1,2)·í§@¸õÄæÅܼÆ
- For i = 1 To 15 Step UBound(c) + 1 '°j°é1¨ì15¡A¥H3¬°¶¡¹j(Ubound(c)=2)
- n = n + 1 '¤º´¡ÅܼÆn(¦CªºÅܼÆ)¡Aj¬°array¸Ìªº0,1,2
- For Each j In c 'nªì©lÈ0·|±a¥X1¡A¨Ã°j°é0,1,2
- Cells(n, j + 1) = i + j '±a¥Xcells(1,1)=1¡Bcells(1,2)=2¡Bcells(1,3)=3
- Next '´`Àôn·|¦A+1¡AÅýcells¸õ¤U¤@¦C
- Next
- End Sub
½Æ»s¥N½X |
|