Question

这是我的代码，因为我正在尝试将此公式应用于不断变化的数据列。

Dim x As Integer
x = Range("N3").FormulaR1C1 = "=COUNT(C[-10])"
Range("P1").FormulaR1C1 = "Die Type"
Range("P2:Px").FormulaR1C1 = "=RIGHT(LEFT(RC[-12],2),1)"***

我一直收到错误1004，说“方法范围object_global失败。

如何将X设置为我的变量值？

我正在使用excel 2007。

Answer 1

这很奇怪，我认为你不能用这种方式计算细胞数：

x = Range("N3").FormulaR1C1 = "=COUNT(C[-10])"

你可以尝试一下：

Dim x As Integer
x = Application.WorksheetFunction.Count(Range("D3:N3"))

Range("P1") = "Die Type"
Range("P2:P" & x).FormulaR1C1 = "=RIGHT(LEFT(RC[-12],2),1)"

Answer 2

count（）只计算数字
如果D3中有文本，则可能需要使用counta（）：N3
x = Application.WorksheetFunction.Counta(Range("D3:N3"))

VBA范围不起作用，全局参数？

2 个答案: