|
Sub 提取身份证号()
arr = Sheets("工资").UsedRange
brr = Sheets("其他收入").UsedRange
Set d = CreateObject("Scripting.Dictionary")
For r = 5 To UBound(arr)
If arr(r, 2) <> "" Then d(arr(r, 2)) = ""
Next r
For r = 6 To UBound(brr)
If brr(r, 3) <> "" Then d(brr(r, 3)) = ""
Next r
Erase arr
Erase brr
crr = d.keys
arr = WorksheetFunction.Transpose(crr)
Sheets("收入汇总").Range("b5:b56536") = Empty
Sheets("收入汇总").Range("b5:b56536").NumberFormatLocal = "@"
Sheets("收入汇总").Range("b5").Resize(UBound(arr), 1) = arr
End Sub |
评分
-
1
查看全部评分
-
|