Столбцы Excel из нескольких листов

Question

Итак, я пытался скопировать несколько данных с нескольких листов на один лист, как выбрать все столбцы из нескольких листов и разместить их на каком-то другом листе?

Answer 1

Нижеприведенный код VBA поможет вам сразу скопировать данные из всех рабочих листов активной рабочей книги в новую рабочую таблицу. Но помните, что этот код будет работать правильно, когда все рабочие листы должны иметь одинаковую структуру данных, означать одинаковое количество столбцов и строк в одном и том же.

    Sub CommandButton1_click()

    Dim J As Integer
    On Error Resume Next

    Sheets(1).Select

    Worksheets.Add

    Sheets(1).Name = "Combined Sheet"
    Sheets(2).Activate

    Range("A1").EntireRow.Select

    Selection.Copy Destination:=Sheets(1).Range("A1")

   For J = 2 To Sheets.Count
     Sheets(J).Activate
    Range("A1").Select

   Selection.CurrentRegion.Select
     Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
      Selection.Copy Destination:=Sheets(1).Range("A2000").End(xlUp)(2)
   Next

   End Sub

NB. В приведенном выше коде VBA, который я выбрал из ячейки A1, это означает, что в каждом диапазоне данных листа начинается с A1. Но вы можете ЗАМЕНИТЬ стартовую ячейку (A1) другой ячейкой, как вам нужно.

Надеюсь, это поможет вам.