当初做垃圾短信分类的时候用的小程序,逻辑上有小bug,但是基本不影响使用
Sub class()
Dim i&, data
data = Range("B2", Range("D2").End(xlDown))
For i = 1 To UBound(data)
data(i, 2) = "其他类型"
If InStr(data(i, 1), "套") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "首付") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "平米") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "现房") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "产权") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "户型") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "精装") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "厅") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "房价") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "元/平") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "发售") Then data(i, 2) = "地产广告"
If InStr(data(i, 1), "购物") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "超市") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "优惠办理") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "会员推广") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "大酬宾") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "半价优惠") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "会员日") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "健身") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "抢购") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "促销") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "款式") Then data(i, 2) = "打折促销"
If InStr(data(i, 1), "银行") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "iCloud") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "wap") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "登录") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "登陆") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "我行") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "信用卡") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "中国移动") Then data(i, 2) = "冒充身份"
If InStr(data(i, 1), "上门") Then data(i, 2) = "色情服务"
If InStr(data(i, 1), "性爱") Then data(i, 2) = "色情服务"
If InStr(data(i, 1), "私密") Then data(i, 2) = "色情服务"
If InStr(data(i, 1), "激情热线") Then data(i, 2) = "色情服务"
If InStr(data(i, 1), "激情") Then data(i, 2) = "色情服务"
If InStr(data(i, 1), "包养") Then data(i, 2) = "色情服务”
If InStr(data(i, 1), "贷") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "信用卡提现") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "香烟") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "卫星电视") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "手机蓝牙") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "高价") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "破解") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "放款") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "分析师") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "抄盘手") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "操盘手") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "股") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "涨停") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "追债") Then data(i, 2) = "违禁推销"
If InStr(data(i, 1), "博彩") Then data(i, 2) = "非法博彩"
If InStr(data(i, 1), "澳门") Then data(i, 2) = "非法博彩"
If InStr(data(i, 1), "赌场") Then data(i, 2) = "非法博彩"
If InStr(data(i, 1), "百家乐") Then data(i, 2) = "非法博彩"
If InStr(data(i, 1), "票") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "嘌") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "代|开") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "代开") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "發") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "刻章") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "代办") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "办证") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "印章") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "做账") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "走账") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "保真") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "毕业证") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "办理各种证件") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "下证") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "发/飘") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "发飘") Then data(i, 2) = "办证发票"
If InStr(data(i, 1), "学习") Then data(i, 2) = "教育移民"
If InStr(data(i, 1), "招生") Then data(i, 2) = "教育移民"
If InStr(data(i, 1), "招聘") Then data(i, 2) = "招聘广告"
If InStr(data(i, 1), "急招") Then data(i, 2) = "招聘广告"
Next i
Range("B2", Range("D2").End(xlDown)) = data
End Sub