LFだけだと全部一気に読み込まれちゃう
Split()使ってLFで分解するとかしましょう。
'CSVファイルの取り込み LFコードでスプリット→カンマでスプリットするパターン Sub getCSV2() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim strPath As String strPath = "C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート_vbLf.csv" Dim i As Long, j As Long Dim strLine As String Dim tmp As Variant 'LFコードでsplitして格納 Dim arrLine As Variant 'カンマでsplitして格納 Open strPath For Input As #1 'csvファイルをオープン Line Input #1, strLine 'CRコードがないので1行取り込めばCSVファイル全てを取り込める Close #1 tmp = Split(strLine, vbLf) 'strLineをLFコードで区切りtmpに格納 For i = 0 To UBound(tmp) arrLine = Split(tmp(i), ",") 'tmp(i)をカンマで区切りarrLineに格納 For j = 0 To UBound(arrLine) ws.Cells(i + 1, j + 1).Value = arrLine(j) Next j Next i End Sub