VBA 具有变量的独特公式

【问题标题】：VBA unique formula with variableVBA 具有变量的独特公式
【发布时间】：2021-12-20 23:04:39
【问题描述】：

我很难在 VBA 中设置正确的公式来输出列表中唯一值的列表。

    Dim lastRow As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Range("B1").Select
    ActiveCell.Formula2R1C1 = "=UNIQUE(RC[-1]:" & lastRow & ")"

我想做的很简单。只需使用从单元格 A1 到该列中最后一行的范围并将其推送到唯一公式即可。

【问题讨论】：

标签： excel vba excel-formula

【解决方案1】：

A1 符号：

Range("B1").Formula2 = "=UNIQUE(A1:A" & lastRow & ")"

R1C1 符号：

Range("B1").Formula2R1C1 = "=UNIQUE(RC[-1]:R[" & lastRow & "]C[-1])"

【讨论】：

BigBen，我试过了。 VBA 脚本运行干净，但是 B2 中的单元格被抛出#NAME？错误。并且单元格中的公式是 =UNIQUE('A1':'A10')... 不知道如何去掉撇号
第二个公式有效。如上所述，第一个公式被抛出错误。谢谢！
请注意，对于 A1 符号示例，您需要 .Formula2 而不是 .Formula2R1C1。
啊，我明白你在说什么。你说得对。直到现在才明白其中的区别。感谢您指出这一点。