0

以下有什么问题?(级别:初学者)我想将两个不同 Excel 表中的两个范围相乘后得到的答案相加。

Dim iRowCounter As Integer
For iRowCounter = 3 To 47

' C3 to C47 from oSheet6
' C22 to C66 from oSheet5

osheet7.Range("A" & iRowCounter - 1).Value = (oSheet5.Range("C" & iRowCounter+19).Value * oSheet6.Range("C" & iRowCounter).Value) + (oSheet5.Range("C" & iRowCounter+20).Value * oSheet6.Range("C" & iRowCounter+1).Value)

提前致谢

4

1 回答 1

0

您不能只将范围内的所有值相互叠加,您需要遍历范围以执行操作。所以而不是:

    oRng7.Value = oRng5.Value * oRng7.Value

尝试这个:

 Dim iRowCounter as integer
 For iRowCounter = 3 to 47 then 
      osheet7.Range("B" & iRowCounter -1).value = oSheet5.Range("C" & iRowCounter).value * oSheet6.Range("C" & iRowCounter).value
 next iRowCounter 

更新:

你最初的公式是:

表 7 = 表 5 * 表 7

根据您的评论,我将代码更改为:

表 7 = 表 5 * 表 6

于 2012-07-06T17:58:28.160 回答