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

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

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

¶×¤JtxtÀÉ«á,¦p¦ó¨C20¦æ§@¤À­¶(¤À¿ë[A]´N¤À­¶),·P®¦.

WINDBT721.rar (14.63 KB)

§ù¤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

¦^´_ 2# samwang ·PÁÂsamwang¦^ÂÐ,¥i§_²£¥Í¦b¦P¤@­Ó¤u§@ªí,¹wÄý¦C¦L,½­¶®É[A]¦b¨C­¶ªº²Ä¤@¦ì,ÁÂÁÂ.
§ù¤p¥­

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

¦^´_ 4# samwang ·PÁ·PÁÂ.
¥i§_¥[µù¸Ñ,¦¬¤UºCºC¾Ç²ß.
If Arr(i, 1) = "[A]" Then
        Rows(i).PageBreak = xlPageBreakManual
        Columns("i").PageBreak = xlPageBreakManual
    End If
§ù¤p¥­

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

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2021-10-29 15:32 ½s¿è

¦^´_ 5# dou10801

¦hµ½¥Îvbe¤º«Ø»¡©úÀÉ:
1)¿ï¨ú­n¬d¸ßªº¤å¦r,«ö"½Æ»s"//«ö¤W¤è"?"§Ö³t»¡©ú¶s, ¶K¤W¤å¦r
0210-01.GIF
2021-10-29 15:25


2)ÂI«öÃöÁä¦r
0210-02.GIF
2021-10-29 15:26


3)ÂI«ö"½d¨Ò"¤Î"¾A¥Î©ó"³£¦³¶i¤@¨B»¡©ú
0210-03.GIF
2021-10-29 15:27


¤Z¨Æ¦Û¨D¦h§U§a!

TOP

¦^´_ 7# ­ã´£³¡ªL
·PÁ­㴣³¡ªL¤j¤j«üÂI,³o­Ó¹ïªìªÌ¨ü¯q¨}¦h.
§ù¤p¥­

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD