Sub TextOutput()
Dim i As Long
'ファイルを書き込みで開く(無ければ新規作成される、あれば上書き)
Open "C:\Desktop\test.txt" For Output As #1
'開いたファイルに書き込む
Print #1, Range("B3").Value
Print #1, Range("B6").Value
Print #1, Range("B9").Value
For i = 12 To 14
If Range("B12").Value <> "" Then
Print #1, Range("C12").Value
Print #1, Range("D12").Value
Print #1, Range("E12").Value
Exit For
ElseIf Range("B13").Value <> "" Then
Print #1, Range("C13").Value
Print #1, Range("D13").Value
Print #1, Range("E13").Value
Exit For
End If
Next i
'開いたファイルを閉じる
Close #1
'終わったのが分かるようにメッセージを出す
MsgBox "完了!"
End Sub