按日期先后指定区域排序，求大佬帮助

gglili · 发表于 2024-1-15 18:54

本帖最后由 gglili 于 2024-1-17 15:43 编辑

按日期排序.rar (27.62 KB, 下载次数: 9)

如图所示，怎么才能按B列日期的前后顺序进行排序，并且仅排序B-G列，求大佬帮助

x-xx-xx · 发表于 2024-1-15 19:16

09.25

无关岁月 · 发表于 2024-1-15 19:16

本帖最后由无关岁月于 2024-1-15 19:19 编辑

按日期排序.7z (34.57 KB, 下载次数: 12)

jsjysqr · 发表于 2024-1-15 19:16

可以用分裂-排序搞定

ykcbf1100 · 发表于 2024-1-15 19:30

参与一下。。。

Sub ykcbf() '//2024.1.15
r = Me.Cells(Rows.Count, 1).End(3).Row
Set Rng = Me.Range("b3:h" & r)
arr = Rng.Value
On Error Resume Next
For i = 1 To UBound(arr)
splitDate = Split(arr(i, 1), ".")
yyyy = splitDate(0)
mm = splitDate(1)
dd = splitDate(2)
If Len(mm) = 1 Then
mm = "0" & mm
End If
If Len(dd) = 1 Then
dd = "0" & dd
End If
arr(i, 7) = yyyy & "." & mm & "." & dd
Next
Me.Range("b3:h" & r) = arr
Me.Range("b3:h" & r).Sort Me.[h3], 1
Me.Columns(8) = ""
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-15 19:31

附件供参考。。。

gglili · 发表于 2024-1-15 19:49

无关岁月发表于 2024-1-15 19:16

多谢老师，因为你把第二行也给排序了，所以我改了一下，但是在最后一行增加的一行还是不能参加排序，不知道什么原因

gwjkkkkk · 发表于 2024-1-15 19:51

Option Explicit
Sub TEST2()
Dim ar, i&

Application.ScreenUpdating = False

ar = Range("B3", Cells(Rows.Count, "G").End(xlUp))
ReDim Preserve ar(1 To UBound(ar), 1 To UBound(ar, 2) + 1)
For i = 1 To UBound(ar)
      ar(i, UBound(ar, 2)) = CDate(Replace(ar(i, 1), ".", "-"))
Next i
bSort ar, 1, UBound(ar), 1, UBound(ar, 2), UBound(ar, 2)

[B3].Resize(UBound(ar), UBound(ar, 2)) = ar
Application.ScreenUpdating = True
Beep
End Sub

Function bSort(ar, iFirst&, iLast&, iLeft&, iRight&, iKey&, Optional isOrder As Boolean = True)
Dim i&, j&, k&, vTemp
For i = iFirst To iLast - 1
      For j = iFirst To iLast + iFirst - 1 - i
         If ar(j, iKey) <> ar(j + 1, iKey) Then
            If ar(j, iKey) < ar(j + 1, iKey) Xor isOrder Then
                  For k = iLeft To iRight
                     vTemp = ar(j, k): ar(j, k) = ar(j + 1, k): ar(j + 1, k) = vTemp
                  Next
            End If
         End If
      Next j
Next i
End Function

gwjkkkkk · 发表于 2024-1-15 19:52

请参考。。。

无关岁月 · 发表于 2024-1-15 20:01

gglili 发表于 2024-1-15 19:49
多谢老师，因为你把第二行也给排序了，所以我改了一下，但是在最后一行增加的一行还是不能参加排序，不知 ...

我这里测试没问题啊

		自动登录	找回密码
密码			免费注册

[已解决] 按日期先后指定区域排序，求大佬帮助

评分

评分

评分