|
参考一下下面的,
以数据在 Sheet1,写入到Sheet2为例
如果表名不同于上,按实际修改。
- Sub tt()
- Dim Arr, Nrr(), x&, y&, N&
- Dim Wk As Workbook, xBoo As Boolean
- Wk = ThisWorkbook
- With Wk.Sheets("Sheet1")
- Arr = .Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row)
- End With
- ReDim Nrr(1 To UBound(Arr) / 2, 1 To 1)
- For x = 1 To UBound(Arr) - 1
- If Arr(x, 1) <> "" Then
- xBoo = False
- For y = x + 1 To UBound(Arr)
- If Arr(y, 1) Like Arr(x, 1) Then xBoo = True: Arr(y, 1) = ""
- Next y
- If xBoo Then N = N + 1: Nrr(N, 1) = Arr(x, 1)
- End If
- Next x
- With Wk.Sheets("Sheet2")
- .Range("b2:b" & Rows.Count).Clear
- .Range("b2").Resize(N, 1) = Nrr
- End With
- End Sub
复制代码 |
|