|
何度か質問してお世話になってます。
今回もどうしても解決しないので投稿しました。
データベースは1000行くらいで20列あります。
並び替えのリストは30項目位あり変動します。
シート3のデータをシート2のリストで並び変えた後で
保存しようとするとエクセル自体が終了してしまいます。
他のPCでやっても同様です。
最後の Application.DeleteCustomList ListNum:= _
Application.CustomListCount
をコメントブロックすると問題なく保存できますがリストが
残っている状態です。
マクロは下記です。
どなたか宜しくお願い致します。
Sub Sample()
Dim lst As Variant
With Sheets("Sheet2")
lst = WorksheetFunction.Transpose _
(Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)))
End With
Application.AddCustomList ListArray:=lst
With Sheets("Sheet3")
.Range("A1").CurrentRegion.Sort Key1:= _
.Columns("A"), Order1:=xlAscending, _
OrderCustom:=Application.CustomListCount + 1, Header:=xlYes
End With
Application.DeleteCustomList ListNum:= _
Application.CustomListCount
End Sub
|
|