If Cells(AAA, "A") =Cells(CCC, "C") Then 修改為 'If Cells(AAA, "A") <> Cells(CCC, "C") Then
前一個是選出不同部分執行沒問題，后一個是想選出相同部分怎么就不執行了，謝謝解答下！！
Sub foreach()
Dim AAA, CCC, K
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
GoTo 100
End If
Next CCC
K = K + 1
Cells(K + 1, "E") = Cells(AAA, "A")
Cells(K + 1, "F") = Cells(AAA, "B")
100:
Next AAA
End Sub
uj5u.com熱心網友回復：
這么簡單的功能竟然用到了goto樓主你這得是多想不開啊
uj5u.com熱心網友回復：
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")
End If
Next CCC
Next AAA
End Sub
uj5u.com熱心網友回復：
謝謝關注了!!你的程式我試用了，好像不行，你幫忙在看下或幫忙測驗下！！！！
uj5u.com熱心網友回復：
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
抱歉抱歉 試試這個吧 測驗過了
uj5u.com熱心網友回復：
上面的是選相同部分的代碼這個是選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
uj5u.com熱心網友回復：
非常謝謝！可以用！可能是我沒有表述清楚，我的“D”列沒列出資料，實際是C,D或更多列資料只要任一列資料滿足前面對應列資料就在顯示區域顯示該完整資料，我把你給我的代碼加了個回圈結果“K”值怎么都不對，不是覆寫就是有空行（每列資料可能都有幾百）幫忙幫忙
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136272.html
標籤：VBA