Excel：すべてのワークシートから同じ列を取得し、新しいワークシートに追加します

500枚のワークシートを含むExcelブックがあります。下の画像にワークシートの例を示します。Eこれらの500枚のシートすべての列のデータにのみ興味があります。

Eすべてのワークシートから列を取り出して新しいワークシートに入れる簡単な方法はありますか？

計算を行いたくないので、新しいワークシートに500列すべてのEを表示するだけです。

私はグーグルで探していましたが、解決策が見つかりません。

ワークシートの形式：

これは、VBAを使用して比較的簡単に実現できます。

• Alt+ を使用してVisual Basic IDEを開きます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。

これがお役に立てば幸いです。