对于你容易，对我比较困难的VBA问题

[sun_power]

我有一个excel表 Book1.xls
里面有 sheet1
内容为
A列 B列
12 8
1 9
3 3
6 3
5 4
9 88
10 6
98
12
----就这两列，哪位大虾能用VBA把下面格式写出来,就是A列和B列相等的优先列出来

C列 D列
12 12
3 3
6 6
9 9
1 8
5 3
10 4
88
98

[anole2001]

A列里面会有重复，或者 B列里面会有重复哇？

[ktoya]

数不多的话用条件格式吧，
在A列A1上用公式条件格式:
=IF(A1=B1,TRUE,FALSE)
背景为红色
然后在把这个条件格式拷贝到所有A列
这样当A列和B列值相等的时候其背景就会变成红色
这样考出来就很方便了

数字比较多的话
Sub ss()
Set r = Range("A1:B10") '输入具体范围
Dim j As Integer
j = 1
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n, 2) Then
Range(r.Cells(n, 1), r.Cells(n, 2)).Copy Range(Cells(j, 3), Cells(j, 4)) '这一行表示把相同数字的A和B列考到C和D列中
j = j + 1
End If
Next n
For n = 1 To r.Rows.Count
If Not r.Cells(n, 1) = r.Cells(n, 2) Then
Range(r.Cells(n, 1), r.Cells(n, 2)).Copy Range(Cells(j, 3), Cells(j, 4))
j = j + 1
End If
Next n
End Sub