|
发表于 2022-11-23 16:28
|
显示全部楼层
本楼为最佳答案
本帖最后由 风林火山 于 2022-11-23 16:33 编辑
- Sub TEST()
- Dim d, k As Integer, str As String, arr, brr(), i As Integer, n As Integer
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.Range("a1").CurrentRegion
- ReDim brr(1 To 1000, 1 To UBound(arr, 2))
- For k = 2 To UBound(arr)
- If arr(k, 1) = "" Then arr(k, 1) = arr(k - 1, 1)
- str = arr(k, 1) & "," & arr(k, 3) & arr(k, 6)
- If d.exists(str) = False Then
- d(str) = ""
- i = i + 1
- For n = 1 To UBound(arr, 2)
- brr(i, n) = arr(k, n)
- Next n
- End If
- Next k
- Sheet2.Range("a1:b1") = Array("订单号", "备注", "商品", "商品编码", "SKU编码", "商品属性", "商品数量")
- Sheet2.Columns(1).NumberFormatLocal = "@"
- Sheet2.Range("a2").Resize(i, UBound(arr, 2)) = brr
-
- End Sub
复制代码
|
|