|
シートを切り替えずに、コピーペースト
フィルタ
ソートという操作をしようとして、以下のコードを書きましたが、
なぜか.Sortでエラーになってしまいます。
.AdvancedFilterメソッドは成功するのに、なぜなのでしょう?
With objSheet1
.Range(.Cells(1, 1), .Cells(5, 2)).Copy
End With
With objSheet2
.Range("A2").PasteSpecial
.Range(.Cells(1, 1), .Cells(5, 2)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Range(.Cells(1, 1), .Cells(5, 2)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End With
|
|