和漢 医薬大処方集

今日、漢方の専門の先生から和漢の医薬大処方集というのをエクセルでいただきました。処方構成に使われる生薬を抜き出してみました。
並べ替えようと思いましたが、読めない。
専門とは凄いですね。
VBAで生薬をダブルクリックしたら、薬方が表示されるようにしてみましたが、
素人にはなにに使うものなのか、さっぱりわかりません。
配列をRangeオブジェクトに貼り付けるのが処理速度が速いのですが、 構成生薬が多いので、 その配列を作るのが大変面倒かなと思いました。
が、一旦作った配列の上限を上げながら、追加していけば問題ありませんでした。

pstRow = pstRow + 1
pstArray = Array(Trim(m.Cells(curRow, 3).Value), Trim(m.Cells(curRow, 5).Value), Trim(m.Cells(curRow, 7).Value))
For i = 8 To 60
　 ReDim Preserve pstArray(UBound(pstArray) + 1)
   pstArray(UBound(pstArray)) = Trim(m.Cells(curRow, i).Value)
Next i
Range(Cells(pstRow, 1), Cells(pstRow, 56)) = pstArray