VBAを使用してExcelで連結して文字列に出力する

Question

セルA1からM1への値を連結する必要があるという要件があります。シートは動的です。

セルA1からM1の値をVBAを使用して文字列に連結しようとしています。

これを行う方法？シートは動的なので、私が範囲を選択するときに、シートにもコード内で言及したいと思います。

これはExcelが、マクロを生成する方法である私は、セルN1に連結、

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