多条件选出相同部分
--------------------编程问答-------------------- 这么简单的功能竟然用到了goto楼主你这得是多想不开啊 --------------------编程问答-------------------- --------------------编程问答-------------------- 谢谢关注了!!
你的程序我试用了，好像不行，你帮忙在看下或帮忙测试下！！！！ --------------------编程问答--------------------
Sub foreach()
Dim AAA, CCC, K
K = 0
For AAA = 2 To 8
For CCC = 2 To 8
If Cells(AAA, "A") = Cells(CCC, "C") Then
'If Cells(AAA, "A") = Cells(CCC, "C") Then
K = K + 1
Cells(K + 1, "E") = Cells(AAA, "A")
Cells(K + 1, "F") = Cells(AAA, "B")
Exit For
End If
Next CCC
Next AAA
End Sub
抱歉抱歉 试试这个吧 测试过了 --------------------编程问答-------------------- 上面的是选相同部分的代码
这个是选A列有而C列没有的代码
--------------------编程问答-------------------- 除 --------------------编程问答-------------------- --------------------编程问答-------------------- 除
Sub foreach()
Dim AAA, CCC, K, Flag
K = 0
For AAA = 2 To 8
Flag = False
For CCC = 2 To 8
If Cells(AAA, "A") = Cells(CCC, "C") Then
Flag = True
Exit For
End If
Next CCC
If Flag = False Then
K = K + 1
Cells(K + 1, "E") = Cells(AAA, "A")
Cells(K + 1, "F") = Cells(AAA, "B")
End If
Next AAA
End Sub
补充：VB , VBA
