Страницы: 1
RSS
Объединение значений нескольких столбцов содержащих адрес в один столбец с помощью макроса
 
подскажите пожалуйста
как объединить значения нескольких столбцов содержащих адрес в один столбец (новый созданный после всех столбцов с адресом) с помощью макроса. Все находится на одном листе.
файлы прикрепила
 
Примените функцию СЦЕПИТЬ
 
 нужно обязательно использовать макросы  
 
Запишите сцепление макрорекодером.
 
Цитата
с помощью макроса
Код
Sub iConcatenate()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    For j = 1 To 6
      If Not IsEmpty(Cells(i, j)) Then
        Select Case j
          Case 1
            Cells(i, "G") = Cells(i, "A") & ", "
          Case 2
            Cells(i, "G") = Cells(i, "G") & Cells(i, "B") & "." & Cells(i, "C") & ", "
          Case 4
            Cells(i, "G") = Cells(i, "G") & "д." & Cells(i, "D") & ","
          Case 5
            Cells(i, "G") = Cells(i, "G") & "корп." & Cells(i, "E") & ","
          Case 6
            Cells(i, "G") = Cells(i, "G") & "кв." & Cells(i, "F")
        End Select
      End If
    Next
  Next
End Sub
Страницы: 1
Наверх