[已解决]如何筛选出有邮编的数据

hidoto

蝶·舞 发表于 2013-2-18 18:58
楼主想要达到什么样的结果？

就是把地址当中有邮编的客人筛选出来啊==b，不然一条一条的看，要瞎了的==b

业余爱好者

还真的比较麻烦，从文件内容看，包含邮编的至少有四种情况：

1、是邮编??????
2、是（??????）
3、是(??????)
4、是??????

爱疯

B列只要含连续6个数就是有邮编；否则没邮编。

{:041:}

hidoto

业余爱好者 发表于 2013-2-19 10:33
还真的比较麻烦，从文件内容看，包含邮编的至少有四种情况：

1、是邮编??????

对的，而且位置也乱七八糟的，有的在最开始有的么，在最后面，有的邮编写在中间==b

爱疯

1. Sub test()
   
2.     Dim A, i
   
3.     Columns(4).Clear
   
4.     A = Range("a1:d" & Range("a65536").End(xlUp).Row)
   
5.     For i = 2 To UBound(A)
   
6.         If A(i, 2) Like "*######*" Then A(i, 4) = 1
   
7.     Next i
   
8.     [a1].Resize(i - 1, 4) = A
   
9. End Sub

复制代码

TEST.rar (10.05 KB, 下载次数: 25)

2013-2-19 11:19 上传

点击文件名下载附件

这是一个VBA的。
希望能学习函数：判断B2单元格是否包含连续6个数

爱疯

忘了说明，D列是1的数据就是有邮编的。

这样是为省事，楼主再对D列筛选就行了。

hidoto

爱疯 发表于 2013-2-19 11:25
忘了说明，D列是1的数据就是有邮编的。

这样是为省事，楼主再对D列筛选就行了。

那~~~那个~~~高手，我能问下，这段代码要怎么用么？？？？我看了一下真的筛选出来了呢！！！完全不懂代码的人压力好大TvT

hidoto

爱疯 发表于 2013-2-19 11:25
忘了说明，D列是1的数据就是有邮编的。

这样是为省事，楼主再对D列筛选就行了。

我不会用啊，那串代码，不知道1是怎么出来的==b，诶~~~~

hidoto

顶顶，求助。。。。。。继续求助，不知道LS的函数怎么用啊？？？？？？？？？？？

hidoto

再顶顶，继续求助，真的等着用~~~~拜托有没有达人来教一下怎么使用VBA函数？？？真的不知道要怎么用啊啊啊 ！！！！