ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] »s§@ñ¨ìï¥d¦í¤F.......

¦^´_ 2# samwang ·PÁ samwang «e½ú¦^ÂÐ,¦p¦ó½Õ¾ã¤@­¶¬O1-100,²Ä¤G­¶101-200....ªº­¶­±,¦p¦ó³]©w¬°A3ª©­±,¾î¦V,·P®¦.

ñ¨ìï.jpg (139.32 KB)

ñ¨ìï.jpg

§ù¤p¥­

TOP

¦^´_ 1# dou10801

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test()
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 > 13 Then C = 5: R = R + 28
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

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD