UC知道请帮我翻译一下这句VBA
来源：百度知道 编辑：UC知道 时间：2024/06/19 17:42:48
Sub 按钮1_Click()
Dim ra, rc As Integer
For rc = 1 To Application.CountA(Range("C:C"))
If Application.IsError(Application.VLookup(Cells(rc, 3).Value, Range("A:A"), 1, False)) Then
ra = Application.CountA(Range("A:A"))
Cells(ra + 1, 1) = Cells(rc, 3)
End If
Next
End Sub
谢谢
Dim ra, rc As Integer
For rc = 1 To Application.CountA(Range("C:C"))
If Application.IsError(Application.VLookup(Cells(rc, 3).Value, Range("A:A"), 1, False)) Then
ra = Application.CountA(Range("A:A"))
Cells(ra + 1, 1) = Cells(rc, 3)
End If
Next
End Sub
谢谢
完成的功能：将C列中与A列不重复的数据依次放在A列最下端
Application.CountA(Range("C:C")) ： 计算C列非空单元格数量
Application.IsError(Application.VLookup(Cells(rc, 3).Value, Range("A:A"), 1, False)) '判断c列数据在A列中是否“不”存在
ra = Application.CountA(Range("A:A"))
Cells(ra + 1, 1) = Cells(rc, 3) '将不存在的C列值放在A列最下处