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

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

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD