VBA　型が一致しないエラー

前提・実現したいこと

VBAで転換マクロツールを作っています。
以前別の回答サイトで教えて頂きました(https://kosapi.com/post-6391/)のVBAを改変して、日付を合算表示するVBAを組んでいます。
エクセル本体を画像に示すように改変してVBA実行した所9行目で以下のエラーが出ます。
さらにVBAを実行するたびにD,E、F列と空白が挿入されてしまいます。

もし原因・ヒント・解決法等がおわかりになれば教えてください。

発生している問題・エラーメッセージ

実行時エラー'13'型が一致しません。

該当のソースコード

VBA
1Sub 文字列日付変換()
2Dim 日付() As Variant
3Dim 行数 As Long
4Dim i As Long
5  行数 = Cells(Rows.Count, 1).End(xlUp).Row
6ReDim 日付(行数 - 2)
7  Columns(4).Insert
8 For i = 0 To 行数 - 2
9  日付(i) = DateValue(Range("A" & i + 2) & Range("B" & i + 2) & Range("C" & i + 2))
10  Range("D" & i + 2).Value = 日付(i)
11 Next i
12  Columns("A:C").Delete
13  Range("A1").Value = "日付"
14  Columns(1).AutoFit
15End Sub
16

試したこと

年月(A、B列)が文字列でなく数値であれば良いのかと思い、
A,B列の入力内容をセルの書式設定から数値のみに変更したものの、変わらずエラーが出ます。

補足情報（FW/ツールのバージョンなど）

Windows10,Excle2016

DreamTheater

2020/06/02 02:24

表示されているシートの値、VBAコードが試す前なのか試した後なのかわからないので、時系列に説明しましょう。ということで、修正前後のセル書式と値を教えてください。 ■修正前　Ａ２セルの書式と値　Ｂ２セルの書式と値　Ｃ２セルの書式と値 ■修正後　Ａ２セルの書式と値　Ｂ２セルの書式と値　Ｃ２セルの書式と値

r_o_234

2020/06/02 02:37

DreamTheaterさんご返信ありがとうございます。こちら修正前後の書式と値になります。 ■修正前　Ａ２セルの書式と値書式　標準　値　2020年　Ｂ２セルの書式と値書式　標準　値　3月　Ｃ２セルの書式と値書式　ユーザー定義　値　19000101 ■修正後　Ａ２セルの書式と値書式　数値　値　2020 　Ｂ２セルの書式と値書式　数値　値　3 　Ｃ２セルの書式と値書式　ユーザー定義　値　19000101 おわかりになればよろしくお願いします。

DreamTheater

2020/06/02 02:58

ttyp03さんのご指摘通りだと思います。この状態でＡＢＣを結合しても日付形式とは見なされません。

mattuwan

2020/06/02 06:06

結局C2セルにはどんな値をいれたいのですか？ >値　19000101 単に「1日」を入れたいだけ？ということはC3セルには「2日」？けどA:Cをいったん削除してるから、単にA列に「日付を2020年3月1日から、決められた日まで、連続して入れたい」ということでしょうか？

r_o_234

2020/06/02 06:58

DreamTheaterさんご回答ありがとうございます。 mattuwanさんご協力ありがとうございます。、C2に1日、C3セルには2日、と入れたいとのことであっています。「日付を2020年3月1日から、決められた日まで、連続して入れたい」ということで概ね間違いありません。ttyp03さんへの返信で書きましたが、一応解決しましたのでお知らせいたします。ご協力ありがとうございました。

行動規範の内容に同意します

回答2件

ベストアンサー

DateValueに渡す文字列は日付文字列である必要があります。
現在のシートのC列は4行目以降空セルになっており、A列B列C列を結合した文字列が年月日を表す文字列になっていないためエラーになっていると思われます。
1～3行目も日を表す値ではないためエラーになります。
B列とC列の間に日を表す列を追加する必要があります。

余談ですが、現状日付は配列になっていますが、一時的な利用程度のようなので配列の必要はありません。
むしろセルに直接代入すれば変数すら必要ありません。

投稿2020/06/02 02:19

ttyp03

総合スコア16998

r_o_234

2020/06/02 06:55 編集

ttyp03さんご回答ありがとうございます。 C列の表記を01日、02日という風に日付文字列に変更したところ正常に動作しました。また、セルに直接代入すれば変数すら必要ないとのことで、数式(=A2&B2&C2)で合算日付がもっと簡単に出せる事もわかりました。やりたい事は勤務表のエクセルファイルからデータを抽出し、外部のソフトウェアに読み込ませるフォーマットに変換するマクロを組むことですので、より簡易な手法、例えば数式を使って合算日付を出してからそれを別シートに出力する手法等を含めて新たに検討します。ありがとうございました。

行動規範の内容に同意します

あら、解決なんですか。

DateValue関数では、

「2020年3月」という文字列では日付に変換できないのでエラーになりますね。
「2020年3月1日」という風に文字列を作ればいいかなと。

＞日付(i) = DateValue(Range("A" & i + 2) & Range("B" & i + 2) & Range("C" & i + 2))
日付(i) = DateValue(Range("A" & i + 2) & Range("B" & i + 2) & "1日")

それぞれを数値に変換してから日付に変換するなら、DateSerial関数を使います。
（同じく1日という情報を補完してやる必要があります。）

ExcelVBA
1Sub test()
2    Dim y As Long
3    Dim m As Long
4    Dim dtmStart As Date
5    Dim dtmStop As Date
6    
7    With ActiveSheet.Range("A2:B2")
8        y = Val(.Cells(1).Value)
9        m = Val(.Cells(2).Value)
10    End With
11    
12    dtmStart = DateSerial(y, m, 1)
13    dtmStop = DateSerial(y, m + 1, 1) - 1
14    
15    With ActiveSheet.Range("C2").Resize(31)
16        .Cells(1).Value = dtmStart
17        .DataSeries Date:=xlDay, Stop:=dtmStop
18        .EntireColumn.AutoFit
19    End With
20End Sub