使用VBA在Excel中进行concat并将其输出到字符串

Question

我有一个要求我试图将值从单元格A1到M1的值进行连接。床单是动态的。

我试图使用VBA将从单元A1到M1到字符串的值加成。

如何做？床单是动态的，因此，当我们选择范围时，我也希望在代码中提及床单。

这就是Excel生成宏的方式，如果我在单元格N1上进行concat，

ActiveCell.FormulaR1C1 = "=CONCAT(RC[-13]:RC[-1])"

谢谢。请分享您的想法。

Answer 1

类似这样的东西

Sub Demo()
    Dim ws As Worksheet
    Dim cel As Range
    Dim str As String
    Set ws = ThisWorkbook.Sheets("Sheet4")   'change Sheet4 to your data sheet
    For Each cel In Range(ws.Range("A1"), ws.Range("M1"))
        str = str & cel.Value
    Next cel
    Debug.Print str
End Sub

Answer 2

如果您只想在公式中添加表名称，但我不明白为什么。

With ActiveCell
    .FormulaR1C1 = "=CONCAT(" & .Parent.Name & "!RC[-13]:RC[-1])"
End With