自动连接 If excel 公式

Question

所以我正在尝试使用编码在 excel vba 上自动化这个公式。

“昏暗的 ws 工作表集 ws = Sheet2

Dim frow frow = Sheet2.UsedRange.Rows.Count

ws.Range(“W2:W” & frow).FormulaR1C1 =concatenate(IF(ISBLANK(W2), “”,W2&CHAR(10)),IF(ISBLANK(X2),””,X2&CHAR(10)),IF (ISBLANK(Y2), “”,Y2&CHAR(10)),IF(ISBLANK(Z2),””,Z2&CHAR(10)))”

该公式目前有效，但问题是会有额外的列，我不确定如何更改公式，以便将公式中的第一列捕获到公式中的最后一列，是否有另一种方法可以自动执行此公式在 excel vba？

“昏暗的 ws 工作表集 ws = Sheet2

Dim frow frow = Sheet2.UsedRange.Rows.Count

ws.Range(“W2:W” & frow).FormulaR1C1 =concatenate(IF(ISBLANK(W2), “”,W2&CHAR(10)),IF(ISBLANK(X2),””,X2&CHAR(10)),IF (ISBLANK(Y2), “”,Y2&CHAR(10)),IF(ISBLANK(Z2),””,Z2&CHAR(10)))”

该公式目前有效，但问题是会有额外的列，我不确定如何更改公式，以便将公式中的第一列捕获到公式中的最后一列，是否有另一种方法可以自动执行此公式在 excel vba？

Answer 1

将 ws 调暗为工作表集 ws = Sheet2

Dim frow As Long frow = Sheet2.UsedRange.Rows.Count

Dim formula As String formula = ""

For i = 1 To Sheet2.UsedRange.Columns.Count formula = formula & ",IF(ISBLANK(RC" & i & "), """", RC" & i & "&CHAR(10))" 下一个 i

formula = "=CONCATENATE(" & Mid(formula, 2) & ")"

ws.Range("W2:W" & frow).FormulaR1C1 = 公式