利用VBA求两列单元格相乘的结果

有时候我们在处理表格时，经常会碰到两列数据相乘，如果数据条不是很多，我们可以利用公式，但如果碰到上万条数据，我们利用VBA来处理数据就会节约很多的时间。下面举一个例子。

例如下图，我们需要将B列与C列相乘得到D列总价的结果，我们可以输入以下代码轻而易举得到结果：

Sub 单价数量求和()

Dim arr, arr1(1 To 100, 1 To 1) '这里”1 to 100“在不确定数组大小的情况下可以随意定义一个较大的数组

Dim x As Integer

arr = Range('b2:c10') '此处先将B列和C列单元格内容存入一个二维数组中

For x = 1 To UBound(arr)

k = k + 1

arr1(k, 1) = arr(x, 1) * arr(x, 2) '将B列和C列相乘后的结果存入新的数组中

Next x

Range('d2').Resize(x - 1) = arr1 '将arr1数组中的值赋值给D列单元格

Stop

End Sub

运行结果如下图：