在数组公式中部署VBA单元格参考

Question

所以我试图用这个子程序做几件事情，但不能让VBA执行.FormulaArray函数。

1. 创建一个名为范围内使用偏移& LASTROW功能
2. 使用单元格引用插入到数组公式

-

Sub namedrange() 
    Dim firstrow As Long 
    Dim LastRow As Long 
    Dim ColToLetter, absolute, Title, mc, mc1 

    ActiveCell.Offset(0, -1).Select 
    absolute = ActiveCell.Address 
    LastRow = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row 
    firstrow = ActiveCell.Row 
    ColLetter = Mid(ActiveCell.Address, 2, 1) 
    ActiveSheet.Range(ColLetter & firstrow & ":" & ColLetter & LastRow).Name = Range(ColLetter & "1").Value 
    Title = Range(ColLetter & "1").Value 
    ActiveCell.Offset(0, 1).Select 
    mc = ActiveCell.Offset(-1, 0).Address 
    mc = Mid(mc, 2, 3) 
    mc1 = Replace(mc, "$", "") 

    ActiveCell.FormulaArray= "=IF(ROWS(mc & "":"" & mc1)>SUM(IF(FREQUENCY(IF(Title<>"""",MATCH(Title,Title,0)),ROW(Title)-ROW(absolute)+1),1)),"""",INDEX(Title,SMALL(IF(FREQUENCY(IF(Title<>"""",MATCH(Title,Title,0)),ROW(Title)-ROW(absolute)+1),ROW(Title)-ROW(absolute)+1),ROWS(mc & "":"" & mc1))))" 
End Sub 

公式栏显示什么VBA函数正在输出，这不是我想要的。我不知道为什么它不会输出我创建的引用，如mc应该是“$ A $ 2”而不是“mc”。

而且当我尝试执行FormulaArray代码中，我得到一个运行时错误1004“无法设置范围类的FormulaArray属性”

Answer 1

你.FormulaArray内容有一定的错别字。下面是它看起来应该像（假设所有上面的代码是罚款）：

ActiveCell.FormulaArray= "=IF(ROWS(" & mc & ":" & mc1 & ")>SUM(IF(FREQUENCY(IF(Title<>" & chr(34) & chr(34) & ",MATCH(Title,Title,0)),ROW(Title)-ROW(absolute)+1),1))," & chr(34) & chr(34) & ",INDEX(Title,SMALL(IF(FREQUENCY(IF(Title<>" & chr(34) & chr(34) & ",MATCH(Title,Title,0)),ROW(Title)-ROW(absolute)+1),ROW(Title)-ROW(absolute)+1),ROWS(" & mc & ":" & mc1 & "))))" 

在一般情况下，请记住，如果你要打印到一个字符串变量的值，你可以不写"a=mc+3"而是a = " & mc & "+3" 。