|
楼主 |
发表于 2011-1-17 12:43
|
显示全部楼层
回复 377楼 yangyefan 的帖子
Sub 对标()
Dim nRow% '声明变量
nRow = Range("a65536").End(xlUp).Row '返回A列数据最后单元格行号
If nRow < 3 Then Exit Sub
Range("c3:c" & nRow).ClearContents '清除C列原有结果
arr = Range("a3:c" & nRow) '将A:C数据保存到数组Arr
For i = 1 To nRow - 2 '遍历数组所有行
brr = Split(arr(i, 2), Chr(10)) '将B列数据按行分割保存到数组Brr
For j = 0 To UBound(brr) '遍历Brr数组
If arr(i, 1) = brr(j) Then Exit For '比较
Next
arr(i, 3) = IIf(j <= UBound(brr), "正确", "错误") '根据比较结果给数组Arr第3列赋值
Next
Range("a3:c" & nRow) = arr '将数组输出到工作表
End Sub |
|