时间戳

首页 > 解决方案 > 如何在 VBA 公式上按 CTRL SHIFT ENTER

excel - 如何在 VBA 公式上按 CTRL SHIFT ENTER

问题描述

它应该是一个数组公式，所以这就是我尝试在那里插入 {} 的原因。但是我在运行它时遇到了错误。

这是我的代码：

lastrow = ThisWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

If lastrow > 1 Then

     Sheets("Sheet2").Range("C3:C" & lastrow).Value = _
          "=CONCATENATE(MIN(IF(B3:B251=B3,A3:A251)),""-"",MAX(IF(B3:B251=B3,A3:A251)))"

End If

标签： excelvba

解决方案

你需要像这样改变.Value：.FormulaArray

lastrow = ThisWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
If lastrow > 1 Then


Sheets("Sheet2").Range("C3:C" & lastrow).FormulaArray = _
     "=CONCATENATE(MIN(IF(B3:B251=B3,A3:A251)),""-"",MAX(IF(B3:B251=B3,A3:A251)))"

End If

然后您可以使用 {}

对于您可以使用的常用公式.Formula或 .FormulaR1C1具有相对符号的公式。

推荐阅读