[µo°Ý] ¶×¤JtxtÀɯण¯à¦AÀu¤Æ.

dou10801

½Ð±Ð¦U¦ì«e½ú,¶×¤JtxtÀɯण¯à¦AÀu¤Æ.

­ã´£³¡ªL

¤å¦rÀɸê®Æ¤£¦h, ­ìµ{¦¡¤w¥i§Ö³t³B²z,
­þ­Ó¦a¤è­nÀu¤Æ?
»¡©ú»Ý¨D, ¨Ã°µ­Ó½d¨Ò!!

dou10801

¦^´_ 2# ­ã´£³¡ªL
©êºp¡A¨S»¡²M·¡­ìtxtÀɦ³3¤d-5¤dµ§¡A¶×¤J®É³t«×Ok, ¦ý¨C­¶¦³19¦æ¡A¶·¦b¨C­¶²Ä©T©w²Ä3¦æ¤Î²Ä17¦æ§ó§ï¦æ°ª®É¡A³t«×´N·|ÅܺC¡A¬O§_¨ä¥L¤èªk¡A·P®¦¡C

­ã´£³¡ªL

Sub ¶×¤Jtxt()
Dim Arr, Brr, FS$, xLine, xR As Range
t = Timer
ReDim Arr(1 To 6000, 0): Brr = Arr
Application.ScreenUpdating = False
FS = ThisWorkbook.Path & "\sun03.txt"
Open FS For Input As #1
    Do While Not EOF(1)
       Line Input #1, xLine
       xLine = Replace(xLine, "  ", "¡@")
       i = i + 1
       Arr(i, 0) = xLine
        If i > 1 And i Mod 19 = 1 Then Rows(i).PageBreak = xlPageBreakManual
         '¡ô³v¤@³]©w¤À­¶½u, ³t«×¤@©w·|ºC, ¥i¨ú®ø³o¦æ, ª½±µ±N¦C¦Lªº"¤UÃä¬É"³]¬°13¤½¤À  
        If i Mod 19 = 3 Then Brr(i, 0) = 1
        If i Mod 19 = 17 Then Brr(i, 0) = "A"
    Loop
Close #1
'--------------------------------
With Range("A1").Resize(i)
     .Value = Brr
     On Error Resume Next
     .SpecialCells(xlCellTypeConstants, 1).RowHeight = 21 '§Ö³t¿ï¨ú-±`¼Æ-¼Æ¦r
     .SpecialCells(xlCellTypeConstants, 2).RowHeight = 30 '§Ö³t¿ï¨ú-±`¼Æ-¤å¦r
     On Error GoTo 0
     .Value = Arr
End With
MsgBox Timer - t
End Sub

dou10801

¦^´_ 4# ­ã´£³¡ªL
¶W¯«¸Ñªk¡A¦¬¤UºCºC¾Ç²ß¡A·P¿E¤£ºÉ¡C