请问如何用VBA对某一行的内容按列排序？

Question

如图所示，我想让第一行的日期越老的排在越恰面，比如Mar-10代表10年三月，那这个月的这一列数据，就应该在所有11年的几列数据前面，我现在需要用VBA实现，高手能否指教？（非VBA的方法我已经知道了，但是需要用vba解决，球指导！）感激不尽！

Answer 1

方法1:把数据读入二维数组,冒泡法对第一行排序,排好后重新写入表里
方法2:设置一个临时列,还用冒泡法以第一行排序,交换时使用临时列

日期比较直接用时间型读入比较就行了追问

大哥。。能不能把代码也和我说一下啊？非常感谢啊。。

追答

你把文件发给我,帮你搞吧,扣349892374
Option Explicit
Option Base 1
Private Sub CommandButton1_Click()
Dim r, c, n As Integer
For c = 3 To 31
For n = c + 1 To 32
If Cells(1, c) > Cells(1, n) Then
For r = 1 To 7
Cells(r, 40) = Cells(r, c)
Cells(r, c) = Cells(r, n)
Cells(r, n) = Cells(r, 40)
Next r
End If
Next n
Next c
End Sub