見てくれ！八木！

ピンポーン。八木くんのマンションのチャイムが鳴ります。

「なんだ、星か。久しぶりじゃないか」 「このあいだ来たときは、おまえ留守だったんだよ。
…いいから早く、中に入れてくれよ！」

部屋にあがりこんだ星くんは八木くんのPCを借り、会社で作ったマクロを披露します。

「見てくれ八木！CSVの取り込み処理が完成したぞ！」

Sub CSVデータ取り込み()
    Dim buf As String
    Dim v As Variant
    Dim 日付 As String, 数量 As String
    Dim i As Long, r As Long, c As Long
    
    Open ThisWorkbook.Path & "\Sample.csv" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            v = Split(buf, ",")
            
            For r = 6 To Cells(Rows.Count, 1).End(xlUp).Row
                If Cells(r, 1) = v(0) Then
                    For i = 1 To 10
                        If v(i) <> "" Then
                            日付 = Mid(v(i), 1, InStr(v(i), ":") - 1)
                            数量 = Mid(v(i), InStr(v(i), ":") + 1)
                            For c = 4 To Cells(4, Columns.Count).End(xlToLeft).Column
                                If Format(Cells(4, c), "yyyymmdd") = 日付 Then
                                    Cells(r, c) = 数量
                                End If
                            Next c
                        End If
                    Next i
                End If
            Next r
        Loop
    Close #1
End Sub

星くんはマクロを実行し、動作するところを八木くんに見せます。