приспособить код

[бетон]

Добрый день!
Есть отличный макрос, выводящий объединенный текст произвольного диапазона, например - A1:AK314, в указываемую в коде ячейку : Range("AK315") = Str

Sub obedinenie_teksta()

'Объединение текста ячеек выделенного диапазона
Dim iCell As Range
Dim Str As String
For Each iCell In Selection
Str = Str & iCell.Value
Next iCell
'Вывод объединенного текста в ячейку "A1"
Range("AK315") = Str
'Вывод объединенного текста в сообщение
MsgBox Str

End Sub


Как можно сделать, чтобы результат объединения текстов выводился под каждым столбцом диапазона в ячейках А315, B315, ... AK315
и,
если в ячейках есть нули, то их не показывать или текст таких ячеек не объединять

[IgorGO]

Sub obedinenie_teksta()
  Dim iCell As Range, C as range, Str As String
  for each c in selection.columns
    str = ""
    For Each iCell In c
      Str = Str & iCell.Value
    Next iCell
    c.cells(1).offset(c.count,0) = str
  next
End Sub

[бетон]

IgorGO,
не работает, Str = Str & iCell.Value горит желтым что делать

[бетон]

Вот скрин

[IgorGO]

Sub obedinenie_teksta()
  Dim iCell As Range, C As Range, Str As String
  For Each C In Selection.Columns
    Str = ""
    For Each iCell In C.Cells
      if iCell.Value<> 0 then Str = Str & iCell.Value
    Next iCell
    C.Cells(1).Offset(C.Cells.Count, 0) = Str
  Next
End Sub

[бетон]

IgorGO,
Отлично, спасибо, снимаю шляпу!
Если можно избавиться от нулей (специально выделил красным) - будет ВООБЩЕ!!!

[IgorGO]

if iCell.Value<> 0 then Str = Str & iCell.Value

[бетон]

таблицу 313х63 обработал за 3 сек

[бетон]

IgorGO,
подскажите, куда или вместо какой строки кода вставить

[IgorGO]

можно сделать за 1/100 секунды
в сообщении #5 я поправил 1 строку в макросе