在Excel VBA中将相对范围转换为字符串

时间:2017-11-30 18:53:38

标签: excel-vba vba excel

在Excel VBA中,我为具有12,500行的数据表创建了代码。后来,我发现相同的代码对于不同大小的数据表非常有用。

为了更容易,我将所有范围转换为字符串,这样我只需要在代码顶部更改一次字符串,而不是每次都引用范围。

这段代码有一个例子。通过声明" Group_key"在顶部,该范围将自动流入代码。我做了大约30个范围,但有一个范围我无法弄清楚。

在" COUNTIF"等式,它引用了相对范围。我想转换" R6C2:R12500C2"变成一个字符串,但是当我尝试它时,它会自动包含该范围内的引号,并且COUNTIF函数不起作用。

有人知道如何解决这个问题吗?

Sub Format()
Dim Group_key As String
Group_key = "A5:A12500"

Range("AT6").Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = "=COUNTIF(R6C2:R12500C2,RC[-44])"
    Selection.AutoFill Destination:=Range(Group_key)

End Sub

0 个答案:

没有答案