EXCEL VBA 单元格与数组中数据对比,返回值并导出1新表

Question

http://pan.baidu.com/s/1i3H695z 表的下载地址
如下图所示,A与B列为原始录入数据,类型、描述字段
根据类型返回指定的值,和描述且生成1新表

Answer 1

看上去变化就是a列的 "、"和后面的去掉
简单点的做法就是,b列前插入空白列,将a列以"、"分列,之后删除插入的列,另存为就可以了
一定要VBA的话
sub test()
arr=range("a1:b" & Range("a65535").end(3).row)
for i = 1 to ubound(arr)
arr(i,1)=split(arr(i,1),"、")(0)
next
with workbooks.add
.sheets(1).cells(1,1).resize(ubound(arr),2)=arr
.SaveAs CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\导出数据表.xls", 50
.close true
end with
end sub

Answer 2

vba功能帮解决