Public Sub ReadText1() ' Openステートメントを使用 ' 行単位で読み込み Dim FileNumber As Long Dim FilePath As String Dim TextLine As String Dim ar As Variant Dim i As Long Dim gyo As Long FileNumber = FreeFile FilePath = ThisWorkbook.Path & "\test.txt" Open FilePath For Input As #FileNumber gyo = 1 Do While Not EOF(FileNumber) Line Input #FileNumber, TextLine ar = Split(TextLine, ",") For i = 0 To UBound(ar) Cells(gy
![VBA小技集(Office Boole)](https://cdn-ak-scissors.b.st-hatena.com/image/square/8d50d92a2393ede7d04de8b49d77532f8df9a0d7/height=288;version=1;width=512/http%3A%2F%2Fhomepage3.nifty.com%2Fboole%2Fimages%2Fexcel_samp34.gif)