vba问题，把文件夹下所有excel工作表表格中的内容提取倒一个工作表中？

Question

我需要检查好多这种调查报告，需要调取图2涂黑的内容倒图3，求大神写个vba代码，图三可以不带标题行，倒数第三行可以把“电话核实…”所有内容就行

Answer 1

Excel快速批量将相同表式多文件数据汇总成总表万能操作编制

Answer 2

我理解这个需求是邮件合并的拟操作吧，代码的主要工作在于一个一个的单元格去判断，下面给一个框架供参考：
sub 宏1()
dim p,f,st as worksheet,i
workbooks.add
set st=activesheet
i=1
st.range("a1:k1")=array("文件名","客户号","客户名")
p="d:\xxx\" ' 文件所在的文件夹，必须以\结尾
f=dir(p & "*.xlsx")
while f<>""
with workbooks.open p & f

i=i+1

st.cells(i,1)=f

st.cells(i,2)=.sheets(1).range("b2") '提取客户号

st.cells(i,3)=.sheets(1).range("d2") '提取客户名称

'这样的语句需要麻烦自己写出来，上面的B2、D2也不一定正确，因为图片没有标签

.close

end with

f=dir

wend
end sub本回答被网友采纳

Answer 3

调查报告是Excel格式的？每个格式都一样吗？如果是，vba是可以做的追问

对，excel

本回答被网友采纳

Answer 4

可以建立新的沟通渠道上传文件。私信我或实名评论后我私信你。
数量不多就没必要做了。