excel中怎么提取表格内容到另一个工作表并且取旧表客户名作为新工作表

我理解这个需求是邮件合并的拟操作吧，代码的主要工作在于一个一个的单元格去判断，下面给一个框架供参考：
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

ctrl+a全选

2个方式
1：实现建立 以姓名为名的 分表
在各自的分表写INDEX数组公式或用VBA代码
2：无需建立分表，用VBA代码一次性完成

图片有限制，传不了太大的，这个基本能表现了，你先看一下 ，不明白请，希望能帮到你