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

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

¦^´_ 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

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD