循環遍歷列中的單元格並連接

循環遍歷列中的單元格並連接

我想取得 A 列中的所有儲存格:

*布拉*

*一些字*

*兩個字*

*兩個&單字*

*也就是說*

循環遍歷它們並按如下方式連接:

「我的自訂文字」 + “(”+“*[index1]*”,” * [index1] * ”, “*[index2]*”,”* [index2] *”, “*[index3]* ”, ”* [索引3] *” + “)”

(並有一個按鈕,按一下()後,將結果貼到某個儲存格中,例如 B1)

(每個[索引]都是重複的,因為第一個沒有空格,第二個在**之間有空格)。

我在 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

結束子

相關內容