Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Столбцы из разных листов в один столбец
 
#1
07.07.2022 14:47:24
https://disk.yandex.ru/d/BUlmhRfBuz44sw

Добрый день.
Помогите пожалуйста закончить работу.
Есть файл, в котором на разных листах комбинаторика из множества переменных выводится в один список.
Нужно теперь колонки из разных листов (ИТОГ) вывести в одну колонку ИТОГ на первом листе при том, что количество строк везде разное.

(файл ссылкой, так как не помещается в 300Кб)

Лучше формулой, так как в макросах не силен =))
Изменено: Илья Гараев - 07.07.2022 14:49:04
 
 
 
#2
08.07.2022 07:35:30
Макрос: можно с одного листа объединить все столбцы в один.
Код
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  
 
 
 
#3
08.07.2022 07:38:27
Как вариант другой макрос который объединяет данные с разных листов в один:
Код
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
 
 
 
Страницы: 1
Наверх