☰

Excel：从每个工作表中取出相同的列并添加到新工作表中

tag-icon • tag-icon microsoft-excel
Excel：从每个工作表中取出相同的列并添加到新工作表中

我有一个包含 500 个工作表的 Excel 工作簿。下图显示了一个示例工作表。我只对这E500 个工作表中的每一列中的数据感兴趣。

有没有一种简单的方法可以让我E从每个工作表中取出列并将它们放入新的工作表中？

我不想对它们进行任何计算，只是想在新工作表中显示所有 500 列。

我一直在谷歌搜索但找不到解决方案。

工作表的格式：

工作表格式

答案1

使用 VBA 可以相对轻松地实现这一点。

  • Alt使用+打开 Visual Basic IDEF11
  • 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。

我希望这有帮助。

相关内容