Question

EXCEL中如何用编写宏来查找出两列中相同内容的单元格并作标识

有两列数据，

想用宏命令来查找出A列中的数据与B列中是否有相同的，如有则作标识（在C列中对应位置写上1），如没有则C列对应位置留空，A列中数据依次与B列中数据作比对。





Answer 1

这个不需要用宏啊，直接用函数就可以，选中C列，输入函数：=if(a:a=b:b,1,"") ,按CTRL+ALT+ENTER结束。都不用下拉就有结果了。
一般用excel是能用系统自带的功能实现的，就不用函数，能用函数的，就不启用宏，因为会让数据越来越大，而且一但出现错误，查找起来也麻烦。

Answer 2

请更改按照以下条件更改表格，然后在运行程序。

第一，sheet的名字一定要改成 MAIN
第二，保证A列没有空行。

代码全文如下：

Sub FIND_101()

Dim i As Long
Dim D, T, p

Set wkDA = ThisWorkbook.Worksheets("MAIN")

i = 1

Do While wkDA.Cells(i, 1) <> ""

T = wkDA.Cells(i, 1)

With wkDA.Columns(2)

Set D = .Find(T, lookat:=xlWhole)

If Not D Is Nothing Then

wkDA.Cells(i, 3) = "1"

Else

wkDA.Cells(i, 3) = ""

End If

End With

i = i + 1

Loop

wkDA.Cells.EntireColumn.AutoFit

Set wkDA = Nothing

End Sub

Answer 3

给你写了一段查找的宏。
如果你是没有宏运行经验的，那么，请更改按照以下条件更改表格，然后在运行程序。

第一，sheet的名字一定要改成 MAIN
第二，保证A列没有空行。

代码全文如下：

Sub FIND_101()

Dim i As Long
Dim D, T, p

Set wkDA = ThisWorkbook.Worksheets("MAIN")

i = 1

Do While wkDA.Cells(i, 1) <> ""

T = wkDA.Cells(i, 1)

With wkDA.Columns(2)

Set D = .Find(T, lookat:=xlWhole)

If Not D Is Nothing Then

wkDA.Cells(i, 3) = "1"

Else

wkDA.Cells(i, 3) = ""

End If

End With

i = i + 1

Loop

wkDA.Cells.EntireColumn.AutoFit

Set wkDA = Nothing

End Sub

Answer 4

不用宏，直接在C1单元格输入公式：
=IF(A1=B1,1,"")
将公式向下复制到相应行即可。