ディレクトリの取得・変更方法

１番簡単なプログラミングで、全てプログラムコードでソートさせるのは大変でもエクセルにソートさせてあげれば件数が少なければ本当に簡単にできます。

簡単なソート

Dim rRow As Long
Dim rCol As Long
    　
　　’ワークシートを設定します
        With Worksheets("test")    
　　　’縦行の最大値を「ｒＲＯＷ」に入力    
            rRow = Cells(Rows.Count, 1).End(xlUp).Row
　　　’横行の最大値を「ｒＣＯＬ」に入力    
            rCol = Cells(1, Columns.Count).End(xlToLeft).Column

   　　　’昇順でＵ１をベースにソートをかけます
            Call .Range(Cells(1, 1), Cells(lRow, lCol)).Sort(Range("U1"))
        End With
End Sub

選択範囲を入力されている全データーに指定して、Ｕ１の昇順にソートをかけるプログラムです。

ちょっと複雑なプログラム

Dim rRow As Long
Dim rCol As Long
    
          　
　　’ワークシートを設定します
        With Worksheets("test")    
　　　　’縦行の最大値を「ｒＲＯＷ」に入力    
            　rRow = Cells(Rows.Count, 1).End(xlUp).Row
　　　　’横行の最大値を「ｒＣＯＬ」に入力    
            　rCol = Cells(1, Columns.Count).End(xlToLeft).Column
　　　　
              Call .Range(Cells(1, 1), Cells(lRow, lCol)).Sort( _
                     Key1:=Range("A1"), _
                     Order1:=xlAscending, _
                    Orientation:=xlSortRows)
        End With
End Sub

選択範囲を入力されている全データーに指定して、「キー」には「Ａ１］の行を昇順で行単位でソートと言う事になります。