質問: Nothing ' ---並べ替え Range("E1", Range("G" & Rows.Count).End(xlUp)).Sort _ Key1:=Range("E2"), Order1:=xlAscending, _ Key2:=Range("F2"), Order2:=xlAscending, _ Header:=xlGuess End Sub ### エクセル画面 ![イメージ説明](https://teratail-v2.storage.googleapis.com/uploads/contributed_images/68b4800ce892074360e04fdcf75e6346.png) ### 補足情報(言語/FW/ツール等のバージョンなど) 使用しているPC: iMac OS X 10.11.5 マイクロソフトOffice: Office365 Solo Windowsにて実行した場合、問題ありませんでした
回答: Scripting.Dictionary がmac環境では利用できないからだと思います。 「Scripting.Dictionary mac」 で検索するといくつか代替案が見つかりそうですので、調べてみてはいかがでしょうか。