刚入VBA的小白求助，在线等。。

xiaozha1985

各位高手，想请教下，我这里有一张工作表表里有1-2千条数据，每一行的数据都是姓名，电话，地址，备注等，但是每行的这四个排列都不一样，求助，怎么写代码，能让这些数据按我想要的方式排列好，不胜感激。（我原先考虑的是先判断单元格的数据类型，根据数据类型和长度进行对应排列，但是我怎么也写不好如何判断单元格的数据类型和长度的代码）例如
姓名     电话            地址                     金额                备注   
张三     100             公司             15511223344   张三18岁了
100      李四     15011223344             公司          李四是男的   

想要的结果
姓名           电话                     地址                     金额                备注   
张三    15511223344             公司                     100             张三18岁了
李四    15011223344             公司                     100             李四是男的了  

lss001

   
If Ien() =？ Then'判断数据长度
If IsNumeric() = False Then'判断数据是否为数值
()括号里填单元格，？替换为需要判断长度值

yayahzmeng

这种数据，我直接拿回去扔到他脸上，叫他重搞
不过，如果是老板给你的，还是慢慢搞吧
姓名都在第一列，就不考虑了
剩下三列，搞定两个就好了
就搞电话和金额，还是很容易的
不会正则的话，就判断长度来区分

xiaozha1985

lss001 发表于 2017-6-24 01:22
If Ien() =？ Then'判断数据长度
If IsNumeric() = False Then'判断数据是否为数值
()括号里填单元 ...

谢谢老师指点...

xiaozha1985

yayahzmeng 发表于 2017-6-24 02:22
这种数据，我直接拿回去扔到他脸上，叫他重搞
不过，如果是老板给你的，还是慢慢搞吧
姓名都在第一列，就 ...

就是领导给的数据，我连正则是神马都不晓得，现在连VBA代码都没搞清白就要开始整理数据，只能边试验，边手工整理在说。谢谢老师指点。。。

yayahzmeng

帮你搞个吧，应该可以解决你大部分数据，少数不正确的再手工解决吧
注意不要删除O列的字符，那是常用的单姓氏，删掉程序就出错了

xiaozha1985

yayahzmeng 发表于 2017-6-25 00:51
帮你搞个吧，应该可以解决你大部分数据，少数不正确的再手工解决吧
注意不要删除O列的字符，那是常用的单 ...

老师，你好帅。哈哈，我会认真拜读代码，弄清楚排列原理的。