[已解决]求VBA代码

wdmscf · 发表于 2011-12-18 13:52

大家好，我的问题是这样的：在一个表中有姓名，姓别，民族，电话，等信息，但各个表中这四类信息不是按统一格式排列的，有的电话在E列，有的在F列,我想用VBA把电话复制到新表的第一列（A列），请问谁能帮帮我，谢谢

最佳答案

zsx720629

2011-12-18 14:25

本帖最后由 zsx720629 于 2011-12-18 14:26 编辑

是的，后面的表头是不一样的，你最好发一个附件给我

wdmscf · 发表于 2011-12-18 13:53

我是VBA的初学者，请大家见谅了。

wdmscf · 发表于 2011-12-18 13:57

match函数可以求出"电话"所在的列，我用cells(x,1)=cells(x,match(.........))为什么不行呢

windimi007 · 发表于 2011-12-18 14:02

wdmscf 发表于 2011-12-18 13:57
match函数可以求出"电话"所在的列，我用cells(x,1)=cells(x,match(.........))为什么不行呢

上传个附件吧！这样没法帮你。{:1812:}

zsx720629 · 发表于 2011-12-18 14:12

不知道这是不是你要的效果，如果满意请设最佳

wdmscf · 发表于 2011-12-18 14:21

zsx720629 发表于 2011-12-18 14:12
不知道这是不是你要的效果，如果满意请设最佳

你好，你发的提取电话我打不开，但要说明的是后面的4个表表头排列顺序是不同的，不知你做的是不是相同。

zsx720629 · 发表于 2011-12-18 14:25

本帖最后由 zsx720629 于 2011-12-18 14:26 编辑

是的，后面的表头是不一样的，你最好发一个附件给我

wdmscf · 发表于 2011-12-18 14:27

楼上的，你好，谢谢你，你做的应该是我要的，可我用是的excell2003，你发的我打不开，能再发一个过来吗，非常谢谢你了。

zsx720629 · 发表于 2011-12-18 14:38

好的，这个应该可以打开了

wdmscf · 发表于 2011-12-18 15:04

我运行时怎么是错误Sheet1.Range("a2").Resize(10000, 300).Clear

		自动登录	找回密码
密码			注册