Excel VBA 質問スレ Part67at TECHExcel VBA 質問スレ Part67 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 20/06/30 20:21:46.34 h7LW9tmr0.net 0番目のセルは無いのに0番目の配列要素はあるから面倒臭いよな 101:デフォルトの名無しさん (ﾜｯﾁｮｲ 4f7c-H7K1) 20/06/30 20:28:40 x94da/wE0.net 場合によってはoffset(i)にすればよい 102:91 20/06/30 20:44:53.74 iUIa6Vpk0.net すみません勘違いをしていました。最終行の 「Range("A2:A" & LastRow) = DayArray」 だと、Ａ列が２行目以降空欄になってしまいます。 「Range(Cells(2, 1), Cells(LastRow, 1)) = DayArray」 も同じでしたが、 For i = 2 To LastRow Range("A" & i) = DayArray(i - 1, 1) Next i だと入りますが、できれば一括で置き換えたいので、正しい書き方を教えてください 103:デフォルトの名無しさん 20/06/30 20:53:49.15 x94da/wE0.net >>102 入力先のセルは1列分なのにDayArrayは2列分あって2列目に年月日が入ってる ReDimを見直せ 104:91 (ﾜｯﾁｮｲ cfcc-pPzt) 20/06/30 21:20:49 iUIa6Vpk0.net >>103 Forの処理をこれに変えたらできました。ありがとうございます DayArray(i - 1, 0) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3) 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch