各位好~小弟是新手刚入门VBA 现在由於工作上资料量庞大 需要做一些筛选 例子如下: B C D E F a1 1 1 1 1 b1 1 1 1 c1 1 1 d1 1 e1 f1 如果E栏有值 希望在F栏显示出 aaa 如果E栏没有值 D栏有值 希望在F栏位显示出 bbb 如果E D栏没有值 C栏有值 希望在F栏位显示出 CCC 如果EDC栏都没有值 B栏有值 希望在F栏位显示出 DDD 如果BCDE都没有值 希望在F栏显示出 EEE 目前只能写出单一栏位 程式码如下 Sub test() If Range("E2").Value = 1 Then Range("F2").Value = "aaa" ElseIf Range("D2").Value = 1 Then Range("F2").Value = "bbb" ElseIf Range("C2").Value = 1 Then Range("F2").Value = "ccc" ElseIf Range("B2").Value = 1 Then Range("F2").Value = "ddd" Else: Range("F2").Value = "eee" End If End Sub 但我所需要的为一次判别整个F栏位 换句话说也就是整个F栏都需判别 尝试着写For回圈 但一直出现错误 请问版上的各位有甚麽好方法建议吗?? 谢谢各位~~ --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 111.80.226.28