关于数组乘法问题，菜鸟求助。

Question

表一：
编号 电冰箱 手机 电视机 空调 洗衣机 吸尘器 总价格
101 1 2 3 4 5 6
102 2 3 4 5 6 7
103 3 4 5 6 7 8
104 4 5 6 7 8 9
105 5 6 7 8 9 10
106 6 7 8 9 10 11 表二：
产品 价格
手机 1000
电冰箱 3000
吸尘器 1000
空调 3000表一里面的数据是销售数量，而表二里面的是价格，我现在想编写个程序，把表二里面对应的产品：手机，电冰箱，吸尘器，空调里面的价格乘表一的数量，然后在总价格里面得出。其他的产品不用管。小弟刚初涉编程，希望高手们不吝赐教。感谢！

Answer 1

select 编号 ,电冰箱 ,手机 ,电视机 ,空调 ,洗衣机 ,吸尘器 
,电冰箱 * (select 价格 from   表二 where 产品 ='电冰箱') 
+ 手机 * (select 价格 from   表二 where 产品 ='手机') 
+ 电视机 * (select 价格 from   表二 where 产品 ='电视机') 
+ 空调 * (select 价格 from   表二 where 产品 ='空调') 
+ 洗衣机 * (select 价格 from   表二 where 产品 ='洗衣机') 
+ 吸尘器 * (select 价格 from   表二 where 产品 ='吸尘器') 
 as 总价格
from 表一

Answer 2

不好意思，可能是我没说清楚，这个是excel里面的表
不是数据库的表

Answer 3

我只想在excel里面编个VBA来实现以上功能，大虾们，支援一下

Answer 4

Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim lngSum As Long
For m = 2 To 7
    For i = 2 To 7
        lngSum = 0
        
        For j = 2 To 7
            If Sheet2.Cells(j, 1) = .Cells(1, i) Then
                lngSum = lngSum + Sheet2.Cells(j, 2) * Cells(m, i)
                Exit For
            End If
        Next j
        
        Cells(m, 8) = lngSum
    Next i
Next m