日付（年/月/日）から年だけで集計

Question

SumIfsで年度別の集計をしようとしています。
.Cells(1, 3) = WorksheetFunction.SumIfs _
(Columns("A"), _
Columns("B"), "2018")
でB列には2018/1/1から2018/12/31の日付が並んでいるときに、
2018で条件を集計するにはどうしたらいいでしょうか。
よろしくお願いします。- リスト

品名	数量	日付	2014	2015	2016	2017	2018

1 りんご 2 2013/1/1
2 すいか 3 2016/1/2
3 なす 5 2013/1/1
4 りんご 4 2013/1/1
5 すいか 5 2013/1/1
6 なす 5 2015-6/60
7 りんご 12 2013/1/1
8 すいか 0 2013/1/1
9 なす 0 2013/1/1
10 りんご 1 2013/1/1
11 すいか 0 2013/1/1
12 なす 0 2013/1/1
13 りんご 2 2013/1/1
14 すいか 3 2013/1/1

Comments

[m.ts10806]

元はどのようなデータなのでしょうか。サンプルを提示してください。

[hajihaji]

元は総当り表となり、年度毎の数量の合計を求めたいです。

Answer 1

Year関数をかますことができるといいのですが、できなそうなのでこんな感じでしょうか。

.Cells(1, 3) = WorksheetFunction.SumIfs _
(Columns("A"), _
Columns("B"), ">=2018/1/1", _
Columns("B"), "<2019/1/1")

B列はシリアル値が前提です。
文字列の日付には対応していません。

Comments

[hajihaji]

ご回答感謝いたします。