簡易的に 読み込みだけならこうか！Sub Sample2()Dim buf As StringOpen "C:\Data\Sample.csv" For Input As #1Do Until EOF(1)Line Input #1, buf''読み込んだデータをセルに代入するLoopClose #1End Sub目的位置（記入最終行後）へのセルコピーが これか！…