質問: xlYes .Apply If j <= 1 Then wsTo.Columns(iArr(j + 1)).Clear End If Next j
回答: 表1・2が評価点を最優先に並べ替えたいとするなら 全ての表がナンバリングを優先して並べ替えているせいではないでしょうか。 どこに何があるかの情報がないので 関係ないかもしれませんが。