Excel VBA UsedRange範囲ソート

質問

図のような中抜の一覧ができているとき、商品コードで空行を飛ばして並び替えをしたいのですが、下記だと空行まで（チョコからわたがしまで）しか対象になりません。
----------------------------
Sub 並べ替え()
With ActiveSheet.Sort
.SortFields.Clear
'Key:=Range("A3")でソートする列とタイトル位置を指定
.SortFields.Add Key:=Range("A3"), SortOn:=xlSortOnValues, _
Order:=xlAscending
'.「商品コード」("A3").でソート
.SetRange Range("A3").CurrentRegion
' 先頭行をタイトル行と見なす
.Header = xlYes
.Apply
End With
End Sub

-------------------------

範囲をCurrentRegion ではなくUsedRangeに広げるには、どこをいじったらいいでしょうか。

求める結果としては「商品コード」の列が登り順に揃ってほしいのです。

データ処理としてはソートをかければいいだけですが、UsedRange（範囲内のセルを選択し、Ctrl＋Shift+Endキーで選ばれる範囲）をみつけてソートをかける方法を知りたいのです。

回答No.2

kkkkkm · ベストアンサー

No1です

B1にデータがあったのを見落としてました

.SetRange Range(Cells(3, "A"), ActiveCell.SpecialCells(xlLastCell))

これでいかがでしょう。

お礼

エラーはゴミ文字が別行にあったからでした。
うまく並びました。

補足

「変数が定義されていません」とコンパイルエラーが出るのですが、どこを指しているのでしょうか。

回答No.3

kkkkkm

> 「変数が定義されていません」とコンパイルエラーが出るのですが

質問に書かれているコードの
.SetRange Range("A3").CurrentRegion
を
.SetRange Range(Cells(3, "A"), ActiveCell.SpecialCells(xlLastCell))
に変更しただけで、こちらではエラーは出ないのですが・・・エクセル2013です。
変数と認識されるのはxlLastCellだと思いますが、試しに
.SetRange Range(Cells(3, "A"), ActiveCell.SpecialCells(11))
にしてみるとどうでしょう。

ただ、xlLastCellはエクセル95からの組み込み定数に入っているので使えるはずなのですが、参照設定でしょうか。
Visual Basic For Application
Microsoft Excel 15.0 Object Library
OLE Automation
Microsoft Office 15.0 Object Library

補足

ありがとうございます。
SpecialCells(11)動きました。
数字（添え字？）での指定ができるのですね。

回答No.1

kkkkkm

他にデータがないのでいたら

.SetRange ActiveSheet.UsedRange

でいかがですか。

お礼

ありがとうございました。