エクセルの非表示列分も含め並べ替えたい

Question

以下のコードを使い、ある表を「ColorIndex」が 34の時は一番上、色の指定なし「0」の時はその下、その他の色の時は表の下のほうに集まるように並べ替えていました。

今回、表の右半分を「非表示」として、並べ替えを実施したいのですが、
「ENDC = Cells(2, Columns.Count).End(xlToLeft).Column」
だと非表示分のセルをカウントしてくれず、表の表示分しか並べ替えできません。

非表示分を含めたの列数を求めるにはどのようにすればよいでしょうか。
修正点等有りましたらアドバイスいただけると幸いです。

 Dim ENDR As Long '最終行
 Dim ENDC As Long '最終列
 Dim i As Long '無効化データ開始
 
 ENDR = Cells(Rows.Count, 2).End(xlUp).Row
 ENDC = Cells(2, Columns.Count).End(xlToLeft).Column'ここです！

  With ActiveSheet.Sort 
    .SortFields.Clear
    .SortFields.Add2(Key:=Cells(3, 3), SortOn:=xlSortOnCellColor).SortOnValue.ColorIndex = 34
    .SortFields.Add2(Key:=Cells(3, 3), SortOn:=xlSortOnCellColor).SortOnValue.ColorIndex = 0
    .SetRange Range(Cells(3, 1), Cells(ENDR, ENDC))
    .Header = xlNo
    .Apply
  End With

 i = 3 '無効化までの行数
 Do While Cells(i, 3) <> ""
   If Cells(i, 3).Interior.ColorIndex = 15 Then
    Exit Do
   End If
   i = i + 1
 Loop

※「ここです！」と書かせていただきました！
よろしくおねがいします。

Answer 1

ここを

.SetRange Range(Cells(3, 1), Cells(ENDR, ENDC))

これでいかがでしょうか

.SetRange Cells(3, 1).CurrentRegion

他で使わないなら最終行列を取得しなくてもこれで対応できます。

Comments

[ice930]

ご回答ありがとうございます。
「ENDC」自体が非表示分をカウントしておらず、適切に並べ替えできませんでした。
「.CurrentRegion」初めて知りました。
更新される表等に使うのにべんりですね！
今後使わせていただきます！

[radames1000]

非表示列もCurrentRegionで取得できるので今回もこれで問題ないはずです。

[ice930]

.SetRange Range(Cells(3, 1), Cells(ENDR, ENDC))
にそのまま「.CurrentRegion」つけていました。
.SetRange Cells(3, 1).CurrentRegionで最終列を判別できるんですね！
ご指摘の通りでした。ありがとうございます！

Answer 2

Do Whileを使用してカウントすれば可能かと思います。

    'ここです
    i = 1
    
    Do While Cells(2, i) <> ""
        i = i + 1
    Loop
    
    ENDC = i - 1

Comments

[ice930]

ご回答ありがとうございます！
Do While　も考えたのですが、非表示分はｶｳﾝﾄしてくれない様です・・・。

Answer 3

sortメソッドにも、sortオブジェクトにも、「非表示部分をどうするか」というプロパティーが無いので、一旦表示させて、ソートして、非表示に戻すという地道な方法しか無いと思います。

Comments

[otn]

すいません。改めて質問を読み返してみると、読み違えていました。
つまり、全く関係ない回答（ソート時に非表示レコードが除外される件かと）でした。

列位置を知りたいと言うことなので、他の方にBAを付けて下さい。