我正在使用VBA尝试一个计算和积。代码如下
Sub Result()
ActiveCell.Formula = "=SUMPRODUCT(B4:QF4,B5004:QF5004)"
End Sub
程序中有一个变量,每次列数都会改变。我尝试将列"QF“定义为一个数字,但这显示了一个错误。如何在代码中将列定义为数字?我试过以下代码。
Sub Result()
ActiveCell.Formula = "=SUMPRODUCT(B4:(" & (FinalR - j) & ")4,B(" & (FR - nobis + j + 1) & "):(" & (FinalR - j) & ")5004)"
End Sub
发布于 2017-04-27 05:12:51
这个怎么样:
Sub Result()
ActiveCell.Formula = "=SUMPRODUCT(B4:" & Left(Cells(1, FinalR - j).EntireColumn.Address(False, False), InStr(Cells(1, FinalR - j).EntireColumn.Address(False, False), ":") - 1) & "4,B5004:" & Left(Cells(1, FinalR - j).EntireColumn.Address(False, False), InStr(Cells(1, FinalR - j).EntireColumn.Address(False, False), ":") - 1) & "5004)"
End Sub
我假设FinalR - j
给出了列号?
https://stackoverflow.com/questions/43657534
复制相似问题