如何用EXCEL实现自动分类填表？

显示全部楼层 · 2009-8-22 11:20:51

楼主，我假设您A列数据是从A2开始, 请在B2 输入公式:=MIDB(A2,SEARCHB("?",A2,1),4)向下复制公式，B2以下就是您想要的。固定规律就是: A或B或C之前全是全角字符，且想的数据固定4位长度. 注: SEARCHB("?",A2,1) 是在A2中查找任意半角字符的位置

千问 · 2009-8-22 11:20:51

是不是都有同样的规律在最后四位？？那一个公式就搞定B1 输入=right(A1,4)鼠标移到B1右下角下拉自动填充还是在中间方的后面？=mid(A1,find("方",A1),4)

千问 · 2009-8-22 11:20:51

给你个例子：点筛选菜单，自动筛选，在下小三角中点自定义，选择：包含，输入A100，确定。

千问 · 2009-8-22 11:20:51

编了一个宏，能实现你的想法。Sub 筛选()h = Range("A1").End(xlDown).RowFor i = 1 To h Str1 = Split(Cells(i, 1), " ") Cells(i, 2) = Right(Str1(0), 4)NextEnd Sub