Циклический перебор ячеек в столбце и объединение

Я хотел бы взять все ячейки в столбце a:

* bla*

*someWord*

*два слова*

*два слова*

*другие - слова*

переберем их и соединим следующим образом:

"мой произвольный текст" + "("+"*[индекс1]*"," * [индекс1] * ", "*[индекс2]*","* [индекс2] *", "*[index3]*","* [index3] *" + ")"

(и есть кнопка, которая при нажатии () вставляет результат в какую-то ячейку, скажем B1)

(каждый [индекс] повторяется, потому что первый без пробела, второй с пробелом между**).

Я делаю это довольно легко с Javascript в HTML-документе, но я ничего не знаю о макросах VBA или excel.

любая помощь приветствуется.

13
задан fixer1234
14.05.2023 3:22 Количество просмотров материала 3343
Распечатать страницу

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

Конец Sub

1
отвечен Fazer87 2023-05-15 11:10

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх