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

dou10801

»s§@ñ¨ìï¥d¦í¤F,½Ð«e½úÀ°¦£,§Ú¥u·|§â²Ä¤@±iª©­±³]©w¦n,©¹¤Uªºª©­±¦p¦ó³B²z,ÁÂÁÂ.

samwang

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

dou10801

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

dou10801

¦^´_ 4# dou10801

samwang

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

dou10801

¦^´_ 5# samwang ·PÁÂ,·PÁÂ.VBAª©­±¦Û¦æ­×¹¢.

jcchiang

¦^´_ 1# dou10801

¸Õ¸Õ¬Ý
Sub ex()
Dim x%, y%, z%
For x = 1 To Sheets("·|­û¸ê®Æ").[a65535].End(3).Row Step 25
   With Sheets("·|­ûñ¨ìï1")
      .[a3].Offset(y, z).Resize(, 3) = Array("½s ¸¹", " ©m¦W", "ñ³¹")
      Cells(x, 1).Resize(25, 3).Copy .[a4].Offset(y, z)
      With .[a3].Offset(y, z).CurrentRegion
         .Borders.LineStyle = xlContinuous
      End With
      z = z + 4
      If z = 16 Then z = 0: y = y + 28
   End With
Next
End Sub

dou10801

¦^´_ 7# jcchiang ·P®¦,¥t¤@ºØ«ä¸ô,¾Ç²ß,¾Ç²ß.

dou10801

¦^´_ 7# jcchiang ½Ð±Ð jcchiang ¤j¤j,¦p¦ó±NªÅ¹j¶ñº¡,ÁÂÁÂ.

¤U¸ü (109.74 KB)

2021-4-27 10:06

dou10801

¦^´_ 7# jcchiang

¤U¸ü (124.12 KB)

2021-4-27 10:08