kazepapa https://blog.hatena.ne.jp/kazepapa/ 風のきまぐれ https://kaze88.hatenablog.jp/ ネット＆ツール 簡易的に 読み込みだけならこうか！Sub Sample2()Dim buf As StringOpen "C:\Data\Sample.csv" For Input As #1Do Until EOF(1)Line Input #1, buf''読み込んだデータをセルに代入するLoopClose #1End Sub目的位置（記入最終行後）へのセルコピーが これか！Public Sub AddNewData()'既定のデータのフォーマットを追加する Range("J3:P3").Select Selection.Copy Cells(ActiveSheet.Rows.Count, 2).End(… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkaze88.hatenablog.jp%2Fentry%2F2014%2F02%2F06%2F104600" title="CSVデータをファイルから読み込んで　最終行に入れ込む - 風のきまぐれ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-02-06 10:46:00 rich https://kaze88.hatenablog.jp/entry/2014/02/06/104600 1.0 100%