Excel: взять один и тот же столбец с каждого листа и добавить в новый лист

Question

У меня есть книга Excel с 500 листами. Пример рабочего листа показан на рисунке ниже. Меня интересуют только данные в столбце E каждого из этих 500 листов.

Есть ли простой способ взять столбец E из каждого листа и поместить их в новый лист?

Я не хочу делать какие-либо вычисления на них, просто отобразить все 500 столбцов Es в новом рабочем листе.

Я гуглил и не могу найти решение.

Формат рабочих листов:

Answer 1

Это можно сделать относительно легко с помощью VBA.

• Откройте Visual Basic IDE, используя Alt+ F11
• Вставьте новый публичный модуль, используя Alt+ I, M

• Вставьте следующий код в модуль:

  Sub GrabColumnE()
      Dim shtCoE As Worksheet
      Dim shtSrc As Worksheet
      Dim lngCol As Long: lngCol = 1
  
      Set shtCoE = Sheets.Add(After:=Sheets(Sheets.Count))
      For Each shtSrc In Sheets
          If Not shtSrc Is shtCoE Then
              shtSrc.Columns(5).Copy shtCoE.Columns(lngCol)
              lngCol = 1 + lngCol
          End If
      Next shtSrc
  End Sub
  

• Либо нажмите F5 с курсором в коде для запуска Sub, либо перейдите на вкладку Developer на ленте, нажмите Macros , выберите макрос с указанным выше именем и нажмите Run .

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