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

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

簡単なソート

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

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

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

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

Dim rRow As Long
Dim rCol As Long
    
           
  ’ワークシートを設定します
        With Worksheets("test")    
    ’縦行の最大値を「rROW」に入力    
             rRow = Cells(Rows.Count, 1).End(xlUp).Row
    ’横行の最大値を「rCOL」に入力    
             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

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

パラメーター一覧

「Order」のパラメーター
xlAscending昇順に並び替える
xlDescending降順に並び替える
「Orientation:」のパラメーター
xlSortColumns行の入替
xlSortRows列の入れ替え