Объединить данные столбца в одну строку с разделителем - VB
Формулировка задачи:
В файле Excel, в столбик много номеров,как поставить между ними точку с запятой (,и поставить номера друг за другом в одну не разрывную строку? например 79022454433;79022454468;79033661155; и тд?
Решение задачи: «Объединить данные столбца в одну строку с разделителем»
textual
Листинг программы
Private Sub Str_Conc()
Dim sStr As String, i As Integer, iCols As Integer, iRows As Integer, sDelimiter As String
With Selection
iCols = .Columns.Count
iRows = .Rows.Count
If (iCols > 1) And (iRows > 1) Then Exit Sub
sDelimiter = InputBox("Разделитель:")
If Len(sDelimiter) = 0 Then Exit Sub
sStr = Trim(.Cells(1, 1).Value)
If iRows > 1 Then
For i = 2 To iRows
If Len(.Cells(i, 1)) <> 0 Then
sStr = sStr & sDelimiter & Trim(.Cells(i, 1).Value)
.Cells(i, 1).Clear
End If
Next
Else
If Len(.Cells(i, 1)) <> 0 Then
For i = 2 To iCols
sStr = sStr & sDelimiter & Trim(.Cells(1, i).Value)
.Cells(1, i).Clear
Next
End If
End If
.Cells(1, 1).Value = sStr
.Cells(1, 1).Select
End With
End Sub