求助按指定条件排序时间和数量

Justin-2016

求助按指定条件排序时间和数量.zip (9.03 KB, 下载次数: 8)

2023-3-19 15:16 上传

点击文件名下载附件

高个子

为什么日期行下面的有些是数字有些是日期？

Justin-2016

高个子 发表于 2023-3-19 15:12
为什么日期行下面的有些是数字有些是日期？

不好意思！引用错了，都应该是数量，谢谢！

蓝桥玄霜

排序的例子：

zxsea_7426

与模似数据对比:

Justin-2016

蓝桥玄霜 发表于 2023-3-19 15:33
排序的例子：

感谢帮助，倒数第二个 for j 报错了

Justin-2016

zxsea_7426 发表于 2023-3-19 15:54
与模似数据对比:

报错提示：字过程函数未定义

准提部林

Sub TEST_A1()
Dim Arr, Brr, xD, D, R, C&, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([i1], [n65536].End(3))
For i = 3 To UBound(Arr)
    D = CLng(Arr(i, 6))
    xD(D) = Trim(xD(D) & " " & i)
Next i
ReDim Brr(1 To UBound(Arr) - 1, 1 To xD.Count)
For C = 1 To xD.Count
    D = Application.Small(xD.keys, C)
    Brr(1, C) = CDate(D)
    For Each R In Split(xD(D), " ")
        Brr(R - 1, C) = Arr(R, 1)
    Next R
Next C
[s2].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub

zxsea_7426

Justin-2016 发表于 2023-3-19 16:29
报错提示：字过程函数未定义

1. Sub 数据分列()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     With Sheets("sheet1")
   
4.         r = .Cells(Rows.Count, "N").End(3).Row
   
5.         ar = .Range(.[N2], .Cells(r, "N"))
   
6.         br = .Range(.[i2], .Cells(r, "I"))
   
7.         For i = 2 To UBound(ar)
   
8.             d(ar(i, 1)) = br(i, 1)
   
9.         Next i
   
10.         '============排序============
    
11.         temp = d.keys
    
12.         For i = 0 To UBound(temp) - 1
    
13.             For j = i + 1 To UBound(temp)
    
14.                 If temp(i) > temp(j) Then
    
15.                     temp_ = temp(i)
    
16.                     temp(i) = temp(j)
    
17.                     temp(j) = temp_
    
18.                 End If
    
19.             Next j
    
20.         Next i
    
21.         '============排序============
    
22.         ReDim arr(1 To UBound(ar), 1 To d.Count)
    
23.         For j = 0 To d.Count - 1
    
24.             arr(1, j + 1) = temp(j)
    
25.             d(temp(j) & "列") = j + 1
    
26.         Next j
    
27.         For i = 2 To UBound(ar)
    
28.             arr(i, d(ar(i, 1) & "列")) = d(ar(i, 1))
    
29.         Next i
    
30.         .[S2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
31.     End With
    
32. End Sub
    

复制代码

蓝桥玄霜

Justin-2016 发表于 2023-3-19 16:13
感谢帮助，倒数第二个 for j 报错了

少抄了一句代码。