求助用VBA代替sumproduct

roc.jame

各位大神：      我想用VBA代替sumproduct，公式为：=SUMPRODUCT($G$3:$T$3,G4:T4)，数据多时运行超级慢，求纯VBA代码，不调用sumproduct的，谢谢！

物料						A							B							物料总量	VBA
序号	构成	编码	名称	规格型号	单位	4A	5A	6A	7A	8A	9A	10A	4B	5B	6B	7B	8B	9B	10B
2018 总量						730	1819	2117	898	2946	1480	366	82	181	375	404	651	378	139
1	组件	2500132	外协件	WX-2500-13	个	1							2							894
2	组件	2500133	外协件	WX-2500-13	个		1							2						2181
3	组件	2500134	外协件	WX-2500-13	个			1							2					2867
4	组件	2500135	外协件	WX-2500-13	个				1							2				1706
5	组件	2500136	外协件	WX-2500-13	个					1							2			4248
6	组件	2500137	外协件	WX-2500-13	个						1							2		2236
7	组件	2500138	外协件	WX-2500-13	个							1							2	644
8	组件	2500139	外协件	WX-2500-13	个								1	1	1	1	1			1693
9	组件	2500140	外协件	WX-2500-13	个													1		378
10	组件	2500141	外协件	WX-2500-13	个														1	139
11	组件	2500142	外协件	WX-2500-13	个								1	1	1	1	1	1	1	2210
12	组件	2500143	外协件	WX-2500-13	个	1	1	1	1	1			1	1	1	1	1			10203
13	组件	2500144	外协件	WX-2500-13	个						1							1		1858
14	组件	2500145	外协件	WX-2500-13	个							1							1	505

liangmutou01

1. Sub vbays()
   
2.   For h = 4 To Range("a65536").End(xlUp).Row
   
3.     jg = 0
   
4.     For L = 7 To 20
   
5.       jg = jg + Cells(3, L) * Cells(h, L)
   
6.       Cells(h, "v") = jg
   
7.     Next L
   
8.   Next h
   
9. End Sub

复制代码