- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¦^´_ 3# dou10801
¦p¦ó½Õ¾ã¤@¶¬O1-100,²Ä¤G¶101-200....ªº¶±>> ¦p¤U¡A½Ð¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test2()
Dim Arr, Ar(1 To 27, 1 To 3), R%, C%, i&
Application.ScreenUpdating = False
Ar(1, 1) = "½s ¸¹": Ar(1, 2) = "©m ¦W": Ar(1, 3) = "ñ ³¹"
R = 3: C = 5: N = 1
Arr = Range([·|û¸ê®Æ!A1], [·|û¸ê®Æ!B65536].End(3))
For i = 1 To UBound(Arr)
N = N + 1: Ar(N, 1) = Arr(i, 1): Ar(N, 2) = Arr(i, 2)
If N = 26 Then
With Sheets("·|ûñ¨ìï").Cells(R, C).Resize(N, 3)
.Value = Ar
.Borders.LineStyle = xlContinuous
End With
C = C + 4: N = 1
End If
If C > 17 Then C = 5: R = R + 28 'C:¶ñ¤J¸ê®Æ¦ì¸m(´«¶)¡A¥i¦Û¦æ½Õ¾ã
Next
If N > 1 Then
With Sheets("·|ûñ¨ìï").Cells(R, C).Resize(N, 3)
.Value = Ar
.Borders.LineStyle = xlContinuous
End With
End If
Application.ScreenUpdating = True
End Sub |
|