VBAを書いたのですが、実行時エラーで困っています。Subコード条件付き書式コピペ()Worksheets(Array("前日比","始値比","貸借倍率","前日比貸株","新規貸株","銘柄")).Range("A2").Sort_Key1:=Range("B1"),_Order1:=xlAscending,_Header:=xlYesWorksheets("銘柄").Range("A:C").Select.CopyWorksheets(Array("前日比","始値比","貸借倍率","前日比貸株","新規貸株")).Range("A:C").Select.PasteSpecial...