преобразование столбца в строку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование столбца в строку (Формулы)

виктор

Дата: Понедельник, 23.12.2013, 15:15 | Сообщение № 1

Группа: Гости

помогите дописать макрос. Он преобразует 2 столбца в 1 строку, но на столбцах стоит фильтр, как сделать так, чтобы скрытые строки он пропускал ? и разделял их "шт"

Function СКЛЕИТЬ(Диапазон As Range, _
Optional Разделитель_Данных$ = "", _
Optional Переносить_ДА_НЕТ$ = "ДА") As String
'---------------------------------------------------------------------------------------
' Procedure : СКЛЕИТЬ
' Author : Alex_ST
' Purpose : склеить тексты из выделенных ячеек в одну строку с задаваемыми при необходимости разделителями данных из разных ячеек
' Notes : по умолчанию включен перенос строк внутри ячейки
'---------------------------------------------------------------------------------------
Dim Слитый_Текст$, Перенос_Строки$, a, i&
Перенос_Строки = IIf(UCase(Переносить_ДА_НЕТ) <> "НЕТ", vbLf, " ")
a = Application.Trim(Диапазон.Value)
If Диапазон.Rows.Count = 1 Then СКЛЕИТЬ = Join(a, Разделитель_Данных): Exit Function
For i = 1 To UBound(a)
Слитый_Текст = Слитый_Текст & Join(Application.Index(a, i, 0), Разделитель_Данных) & Перенос_Строки
Next
СКЛЕИТЬ = Left$(Слитый_Текст, Len(Слитый_Текст) - 1)
End Function

Ответить

KuklP

Дата: Понедельник, 23.12.2013, 18:38 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Пример давайте.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование столбца в строку (Формулы)

Страница 1 из 1
1