VBA

Sub Sample3()
Dim i As Long, tmp As Variant
For i = 2 To 22
tmp = Split(Cells(i, 1), " ")
Cells(i, 2) = tmp(0)
Cells(i, 3) = tmp(1)
Next i
End Sub

Sub Sample7()
Dim i As Long, tmp As Variant
For i = 2 To 6
tmp = Split(Cells(i, 1), vbLf)
Cells(i, 2) = tmp(0)
tmp = Split(tmp(1), "：")
Cells(i, 3) = tmp(1)
Next i
End Sub


こんなときは、Windows APIのSleepを使うと、CPUの使用率を抑えられます。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Sample1()
Dim buf As String
Const LogFile As String = "C:\log\ex090310.log"
Open LogFile For Input As #1
Do Until EOF(1)
Line Input #1, buf
Debug.Print buf
Sleep 1
Loop
Close #1
End Sub