如何快速在多个excel工作表里面提取同一列使之成为一个新的表格

用万能的vba可以实现。举例说明。 例如有一文件，其中sheet1、sheet2、sheet3有数据如图： 现要求将sheet1~sheet3的a列提取后放到sheet4中。假定已知数据项的数量都相同且等于5. 第一步：插入模块，编制代码如下： Sub 创建新表()Const hs = 5For i = 1 To hs Sheet4.Cells(i, 1) = Sheet1.Cells(i, 1) Sheet4.Cells(i, 2) = Sheet2.Cells(i, 1) Sheet4.