- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-21
- ³Ì«áµn¿ý
- 2012-7-11
|
§Ú¤S§ä¨ìµª®×¤F!!!!
Private Sub Command173_Click()
Dim x3 As Integer
x3 = [A65536].End(xlUp).Row
For I = 1 To x3
Do While I1 < 12
Rows(I ¡Ï 1 ¡Ï i2).Insert
I1 = I1 ¡Ï 1
Loop
i2 = i2 ¡Ï I1
I1 = 0
Next
End Sub |
|