Question

从多个数据源中提取文本数据列，并生成新的表格

大约10个表表头如图，需提取公司名称，法人，电话，固话，注册地址，形成新的表格透视表达不到要求，请各位大神指点迷津

Answer 1

用万能的vba可以实现。举例说明。

例如有一文件，其中sheet1、sheet2、sheet3有数据如图：

现要求将sheet1~sheet3的a列提取后放到sheet4中。假定已知数据项的数量都相同且等于5.

第一步：插入模块，编制代码如下：

Sub 创建新表()
Const hs = 5
For i = 1 To hs   
    Sheet4.Cells(i, 1) = Sheet1.Cells(i, 1)   
    Sheet4.Cells(i, 2) = Sheet2.Cells(i, 1)   
    Sheet4.Cells(i, 3) = Sheet3.Cells(i, 1)
Next i
End Sub

第二步：运行该宏。结果如图：

Answer 2

成新的表格

Answer 3

写代码来提取