|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub gh3209y()
Dim i, d, arr, j
Range("d1:e10000").ClearContents
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If arr(i, 1) = "" Then arr(i, 1) = " "
If arr(i, 2) = "" Then arr(i, 2) = " "
If Not d.exists(arr(i, 1) & arr(i, 2)) Then
j = j + 1
d(arr(i, 1) & arr(i, 2)) = j
brr(j, 1) = Trim(arr(i, 1))
brr(j, 2) = Trim(arr(i, 2))
End If
Next
[d1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
|
评分
-
1
查看全部评分
-
|