Andy2483

¦^´_ 1# pointchi


    ÁÂÁ«e½úµoªí¦¹©«
½Ð¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub TEST()
   
3. Dim MDHN, i, Arr, Brr
   
4. MDHN = Format(Now, "MMDD-HHNN")
   
5. Arr = Range([A1], Cells(Rows.Count, "A").End(3))
   
6. ReDim Brr(1 To UBound(Arr) / 4, 1 To 4)
   
7. For i = 1 To UBound(Arr)
   
8.    If i Mod 4 Then
   
9.       Brr(Int(i / 4) + 1, (i Mod 4)) = Arr(i, 1)
   
10.       Else
    
11.          Brr(Int(i / 4), 4) = Arr(i, 1)
    
12.    End If
    
13. Next
    
14. Workbooks.Add
    
15. [A1].Resize(1, 4) = Array("®Æ¸¹", "¼Æ¶q", "ªO¸¹", "Àx¦ì")
    
16. [A2].Resize(UBound(Brr), 4) = Brr
    
17. [A:D].Columns.AutoFit
    
18. ActiveWorkbook.SaveAs Filename:="C:\Users\Point\OneDrive\®à­±\" & MDHN & ".xlsx"
    
19. End Sub

½Æ»s¥N½X

Andy2483

¦^´_ 7# pointchi


    ÁÂÁ«e½ú¦^ÂÐ
    ÁÂÁÂsamwang«e½ú«ü¾É
¦A²ß±o IIf( )  ¨ú¥N  if ~else~

Option Explicit
Sub TEST1()
Dim MDHN, i, Arr, Brr, R, C
MDHN = Format(Now, "MMDD-HHNN")
Arr = Range([A1], Cells(Rows.Count, "A").End(3))
ReDim Brr(1 To UBound(Arr) / 4, 1 To 4)
For i = 1 To UBound(Arr)
   C = IIf(i Mod 4, i Mod 4, 4)
   R = IIf(C = 1, R + 1, R)
   Brr(R, C) = Arr(i, 1)
Next
Workbooks.Add
[A1].Resize(1, 4) = Array("®Æ¸¹", "¼Æ¶q", "ªO¸¹", "Àx¦ì")
[A2].Resize(UBound(Brr), 4) = Brr
[A:D].Columns.AutoFit
ActiveWorkbook.SaveAs Filename:="C:\Users\Point\OneDrive\®à­±\" & MDHN & ".xlsx"
End Sub