Склейка текстовых значений из массива

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

Склейка текстовых значений из массива (Макросы/Sub)

argetlam

Дата: Вторник, 02.06.2015, 11:05 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 46

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

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

Excel 2010

Доброе время суток.
Задача в принципе тривиальна, необходимо добавить условие в функцию, чтобы он не собирал данные из пустых ячеек (и соответственно не ставил лишних разделителей), но мне не хватает знаний на данную махинацию.
Прошу помочь, заранее спасибо.

[vba]

Код

'Склеивание текста из всех ячеек Rng с разделителем DELIM (автором кода является Николай Павлов)
Public Function Exterminate(ByRef Rng As Excel.Range, Optional ByVal DELIM As String = ", ") As String
       Dim rCell As Range
       For Each rCell In Rng
           Exterminate = Exterminate & DELIM & rCell.Text
       Next rCell
       Exterminate = Mid(Exterminate, Len(DELIM) + 1)
End Function

[/vba]

К сообщению приложен файл: __.xls (33.0 Kb)

Сообщение отредактировал argetlam - Вторник, 02.06.2015, 11:09

Ответить

_Boroda_

Дата: Вторник, 02.06.2015, 11:12 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16892

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Public Function Exterminate(ByRef Rng As Excel.Range, Optional ByVal DELIM As String = ", ") As String
     Dim rCell As Range
     For Each rCell In Rng
         If rCell <> "" Then Exterminate = Exterminate & DELIM & rCell.Text
     Next rCell
     Exterminate = Mid(Exterminate, Len(DELIM) + 1)
End Function

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995