Сцепка нескольких текстовых ячеек в одну строку

@Josser · Регистрация: 20.07.2009

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как рациональнее сделать.

Задача соединить несколько ячеек в одну строку. В прикрепленном файле ячейки А12:A20 (диапазон может быть больше, нужно с проверкой на пустую ячейку) с листа "Каталог с описанием", на лист "Таблица" в колонку "Описание"

@yaser · 21.07.2009, 17:10

Visual Basic

Public Sub Filing_Table()
Dim sText As String, sResultText As String
Dim nI As Integer, nX As Integer
 
  nI = 2
  nX = 12
  ActiveWorkbook.Sheets("Таблица").Select
  sText = Cells(nI, 1)
  While sText <> ""
    ActiveWorkbook.Sheets("Каталог с описанием").Select
    Cells.Find(What:=sText).Activate '
    sText = Cells(nX, ActiveCell.EntireColumn.Column)
    While sText <> ""
      If sResultText <> "" Then
         sResultText = sResultText & sText & ", "
      Else: sResultText = sResultText & sText & " "
      End If
      nX = nX + 1
    sText = Cells(nX, ActiveCell.EntireColumn.Column)
    Wend
    ActiveWorkbook.Sheets("Таблица").Select
    Cells(nI, 2) = sResultText
    nI = nI + 1
    sText = Cells(nI, 1)
  Wend
End Sub

29.07.2009, 11:01

Спасибо большое!!

zeny4
	29.07.2009, 11:01	3
	Спасибо большое!!

	29.07.2009, 11:01