おそらく、次のように数式にさらに文字を保存できます。
=(N(F73)*N(J73)+N(G74)*N(J74))/100
これはさらに拡張できますが、わかりやすくするために、カスタム UDF を作成することをお勧めします。
=SPRange((F73,G74),(J73,J74))%
SPRange は SUMPRODUCT のように機能しますが、複数の範囲で動作します。
Function SPRange(Range1 As Range, Range2 As Range) As Double
Dim i As Long, n As Long, rng As Range, Arr() As Double
n = Range1.Count
ReDim Arr(1 To n) As Double
i = 1
For Each rng In Range1
If IsNumeric(rng.Value2) Then Arr(i) = rng.Value2
i = i + 1
Next rng
i = 1
SPRange = 0
For Each rng In Range2
If IsNumeric(rng.Value2) Then SPRange = SPRange + Arr(i) * rng.Value2
i = i + 1
Next rng
End Function
多くの範囲に拡張したい場合は、コードを使用して名前を定義できます。
names.Add "Range1",Range("f73,g74")
names.Add "Range2",Range("j73,j74")
これにより、テストで 1000 個を超えるセルが可能になります。次に、式を次のように入力します。
=SPRange(Range1,Range2)%