Объединение нескольких ячеек диапазона в одну

[tibhar940]

Подскажите пожалуйста.

есть диапазон ячеек (A1:A25) с числами. Нужно скопировать их в одну ячейку через запятую. через формулу с использованием &", "& это слишком долго получается. можно ли как-то средствами VBA это реализовать?

Заранее спасибо.

[Vja4eslav]

Sub Collect()
Dim i As Long
Dim count As String

count = vbNullString
For i = 1 To 25
If count = vbNullString Then
count = Cells(i, 1).Value
Else
count = count & ", " & Cells(i, 1).Value
End If
Next
[B1].Value = count
End Sub

[WIC]

СЦЕПИТЬ() не пробовали?
запятую можно в ячейку вбить и использовать как ссылку.

[tibhar940]

Сообщение от Vja4eslav

Sub Collect()
Dim i As Long
Dim count As String

count = vbNullString
For i = 1 To 25
If count = vbNullString Then
count = Cells(i, 1).Value
Else
count = count & "," & Cells(i, 1).Value
End If
Next
[B1].Value = count
End Sub

Спасибо, а где здесь указание на то, что это диапазон A1:A25 не пойму.
Можно ли тоже самое сделать для выделенных ячеек?

[ikki_pf]

меня недавно плохому научили

Sub t()
  [b1] = Join(Application.Transpose([a1:a25]), ",")
End Sub

[tibhar940]

Сообщение от ikki_pf

меня недавно плохому научили

Sub t()
  [b1] = Join(Application.Transpose([a1:a25]), ",")
End Sub

Очень даже хорошее. А можно ли тоже самое сделать для выделенного диапазона?

[ShAM66]

Можно так:

Sub Collect1()
Dim c
Dim count As String

count = vbNullString
For Each c In Selection.Value
If count = vbNullString Then
count = c
Else
count = count & "," & c
End If
Next
[b1].Value = count
End Sub

[IgorGO]

Function JoinRange(rg As Range) As String
  If rg.Rows.Count > rg.Columns.Count Then JoinRange = Join(Application.Transpose(rg), ",") _
    Else JoinRange = Join(Application.Transpose(Application.Transpose(rg)), ",")
End Function

rg - диапазон-вектор (строка либо столбец с данными)

[tibhar940]

Сообщение от IgorGO

Function JoinRange(rg As Range) As String
  If rg.Rows.Count > rg.Columns.Count Then JoinRange = Join(Application.Transpose(rg), ",") _
    Else JoinRange = Join(Application.Transpose(Application.Transpose(rg)), ",")
End Function

rg - диапазон-вектор (строка либо столбец с данными)

Что-то не совсем пойму как это использовать.

[DiemonStar]

А можно ли тоже самое сделать для выделенного диапазона?

Вполне. Например, так:

  Dim A()
  A = Selection
  For I = 1 To UBound(A)
    [A9].Offset(I) = Join(Application.Index(A, I, 0), ";")
  Next I

объединяет значения по строкам диапазона

Что-то не совсем пойму как это использовать.

Вставьте функцию в проект, а ниже (например) сделайте подобную процедуру:

Sub SelectionJoin
  MsgBox JoinRange(Selection)  
End Sub

p.s. с макросом Игоря, во избежание ошибок, выделяйте лишь один столбец или строку.