[已解决]该代码表达是否要用通配符？

642070295

新建 Microsoft Excel 工作表.rar (6.72 KB, 下载次数: 4)

2014-9-18 18:54 上传

点击文件名下载附件 求教各位高手，附件中的效果要求是否要使用通配符？用代码怎么表达呢？先谢了！

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-18 19:22

1. Sub a()
   
2. Dim i&
   
3. For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.     If InStr(Cells(i, 1), "*") = False And InStr(Cells(i, 1), "#") = False Then
   
5.        Cells(i, 2) = "优"
   
6.     End If
   
7. Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

642070295

有哪位大师帮帮忙吗？

这儿有肥猫

1. Sub a()
   
2. Dim i&
   
3. For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.     If InStr(Cells(i, 1), "*") = False And InStr(Cells(i, 1), "#") = False Then
   
5.        Cells(i, 2) = "优"
   
6.     End If
   
7. Next
   
8. End Sub
   

复制代码

642070295

这儿有肥猫 发表于 2014-9-18 19:22

非常感谢！问题解决了！

这儿有肥猫

642070295

这儿有肥猫 发表于 2014-9-18 19:32

老师，如果对标识有*或#的产品填“优”，应该怎样修改一下代码呢？ 新建 Microsoft Excel 工作表.rar (17.28 KB, 下载次数: 1)

2014-9-18 20:25 上传

点击文件名下载附件

642070295

解决了！再次感谢“这儿有肥猫”老师！