Добрый день. Помогите пожалуйста закончить работу. Есть файл, в котором на разных листах комбинаторика из множества переменных выводится в один список. Нужно теперь колонки из разных листов (ИТОГ) вывести в одну колонку ИТОГ на первом листе при том, что количество строк везде разное.
Макрос: можно с одного листа объединить все столбцы в один.
Код
Sub CopyFilledRows() On Error Resume Next
r = 1
With Sheets(2)
For Each c In Intersect(Selection, ActiveSheet.UsedRange).Cells
If c <> "" Then
.Cells(r, 1) = c
r = r + 1
End If
Next
End With
End Sub
Для того чтоб сработало нужно: 1) все нужные столбцы копируете на лист1, создаёте лист2, 2) на листе1 выделяете курсором все нужные столбцы и запускаете макрос. В итоге на листе2 в столбце А:А будут данные со всех столбцов выделенных на листе1
Как вариант другой макрос который объединяет данные с разных листов в один:
Код
Sub Combine()
'UpdatebyExtendoffice20180205
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub