三行代码  ›  专栏  ›  技术社区  ›  chicagobeast12

带变量的VBA唯一公式

  •  0
  • chicagobeast12  · 技术社区  · 2 月前

    我很难在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 & ")"
    

    1 回复  |  直到 2 月前
        1
  •  2
  •   BigBen TonicQauke    2 月前

    A1表示法:

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

    R1C1表示法:

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