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

[µo°Ý] ¶×¤JtxtÀÉ«á,¦p¦ó¤À­¶.

¥»©«³Ì«á¥Ñ samwang ©ó 2021-10-27 11:16 ½s¿è
¶×¤JtxtÀÉ«á,¦p¦ó¨C20¦æ§@¤À­¶(¤À¿ë[A]´N¤À­¶),·P®¦.
dou10801 µoªí©ó 2021-10-27 08:59


·s¼W¦p¤U¬õ¦r³¡¤À¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub «ö¶s1_Click()
Dim Arr, Brr(1 To 20, 1 To 1), i&, n%
fs = ThisWorkbook.Path & "\sun03.txt"
Open fs For Input As #1
i = 1   '±q²Ä¤@®æ¶}©l¶×¤J
Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
    Line Input #1, TextLine
    Cells(i, 1) = TextLine
    i = i + 1
Loop
Close #1

Arr = Range([a1], [a65536].End(3))
For i = 1 To UBound(Arr)
    n = n + 1: Brr(n, 1) = Arr(i, 1)
    If n = 20 Or i = UBound(Arr) Then
        With Sheets.Add(after:=Sheets(Sheets.Count))
            .[a1].Resize(20) = Brr
        End With
        n = 0: Erase Brr
    End If
Next
End Sub

TOP

¦^´_  samwang ·PÁÂsamwang¦^ÂÐ,¥i§_²£¥Í¦b¦P¤@­Ó¤u§@ªí,¹wÄý¦C¦L,½­¶®É[A]¦b¨C­¶ªº²Ä¤@¦ì,ÁÂÁÂ.
dou10801 µoªí©ó 2021-10-27 12:17


¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

txt.zip (22.07 KB)

TOP

¦^´_  samwang ·PÁ·PÁÂ.
¥i§_¥[µù¸Ñ,¦¬¤UºCºC¾Ç²ß.
If Arr(i, 1) = "[A]" Then
        Rows(i).PageBr ...
dou10801 µoªí©ó 2021-10-27 13:41


PageBreak¥Îªk¡A¥i°Ñ¦Ò¦p¤U¡AÁÂÁÂ
https://docs.microsoft.com/zh-tw ... cel.range.pagebreak

TOP

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