有没有办法在公式应用于特定单元格之前选择范围？

Question

例如我目前正在使用数组公式“= {INDEX（A1：A28，MATCH（MAX（COUNTIF（A1：A28，A1：A28）），COUNTIF（A1：A28，A1：A28），0 ））“”告诉我哪个文本/字符串出现最大值。在指定范围内的时间，即A1：A28。

我试图找出是否使用VBA或任何其他方式，以获得一个弹出框，要求在应用公式之前选择单元格区域？。

由于

尼尔

Answer 1

首先单击应存放公式的单元格，然后运行：

Sub Neel()
    Dim s As String, s2 As String, Z As String, addy As String
    Dim where As Range
    Z = "Z"
    s = "=INDEX(Z,MATCH(MAX(COUNTIF(Z,Z)),COUNTIF(Z,Z),0))"
    Set where = ActiveCell
    addy = Application.InputBox(Prompt:="Pick Range", Type:=8).Address(0, 0)
    s2 = Replace(s, Z, addy)
    where.FormulaArray = s2
End Sub