Excel VBAでの複数のCSVファイルの読み込みとソート

Excelに関しての質問です。
仕事場で皆が簡単に使えるようにマクロを作りたく、https://oshiete.goo.ne.jp/qa/9915014.html　こちらのBAを質問を参考にしようとしました。（私がやりたい動作にぴったりだと思ったので）
しかし、文字列として読み込みたいセルが他に複数存在している場合のコードの書き方がわかりません。
文字列にしたいのはP、Q、Rの列で、最後にD列で降順にソートします。
どうかどなたかご教授いただけないでしょうか？

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2019/12/08 12:53

If j <> 7 Then

　　　　　Cells(b + i, j).Value = buf(j - 1)
　　　　Else
　　　　　Cells(b + i, j).Value = "'" & buf(j - 1)　'プレフィックス文字列書式
　　　　End If
の部分を下記の様に変更します。
　　　　Select Case j
　　　　　　Case 16, 17, 18
　　　　　　　　Cells(b + i, j).Value = "'" & buf(j - 1)　'プレフィックス文字列書式
　　　　　　Case Else
　　　　　　　　Cells(b + i, j).Value = buf(j - 1)
　　　　End Select

この回答へのお礼

こんなに早く回答して下さる方が居るとは！
希望通りに動きました、本当にありがとうございます！！
まだまだ勉強不足ですが、教えて頂いたことを参考にしてもっと精進します！

お礼日時：2019/12/08 13:26

No.3 回答者： よろずやkinchan 回答日時： 2019/12/08 12:59

.Sort Key1:=.Cells(1, 5), Order1:=xlAscending, _

の xlAscending が昇順です。
降順なら、xlDescending です。

No.2 回答者： よろずやkinchan 回答日時： 2019/12/08 12:56

.Sort Key1:=.Cells(1, 5), Order1:=xlAscending, _

の 5 というのがソート列です。
D列なら 4 ですね。