☰

列内のセルをループして連結する

tag-icon • tag-icon microsoft-excel vba macros
列内のセルをループして連結する

列 A のすべてのセルを取得したい:

*ブラ*

*ある言葉*

*二つの単語*

*二つの単語*

*その他 - 単語*

それらをループして次のように連結します。

「カスタムテキスト」+「(」+「*[index1]*」、* [index1] * 」、「*[index2]*」、* [index2] *、「*[index3]*」、* [index3] *」+「)」

(そして、クリックすると、結果を B1 などのセルに貼り付けるボタンを用意します)

(最初のインデックスにはスペースがなく、2 番目のインデックスには ** の間にスペースがあるため、各 [インデックス] が繰り返されます)。

HTML ドキュメントで Javascript を使用すると簡単に実行できますが、VBA や Excel マクロについては何も知りません。

どのような助けでも大歓迎です。

答え1

次のようなものを試してみてください:

Sub generateString()

Range("A1").End(xlDown).Select
For i = 1 To ActiveCell.Row
    Range("A" & i).Select
    strString = strString & " " & Selection
Next i

MsgBox strString

終了サブ

関連情報