ウィンドウ固定あるページでA1セル揃えるとき、固定行以下も行番号順にしたい

Question

よろしくお願いいたします。

環境：　Windows10、Microsoft365 Excel® for Microsoft 365 MSO (バージョン 2111

上図の場合、2行目でウィンドウ固定し、カーソルがC46にあります。

これをVBA処理で

上図のようにしたいです。

しかし自身のVBAでは

カーソルはA1にありますが、行はウィンドウ固定ライン以下は
42行目から始まってしまいます。

どのように記述すれば2枚目の図のようにできるのかご教授いただきたく。
よろしくお願いいたします。

Comments

[bebebe_]

その動作をするコードはどうなっているんですか？

Answer 1

参考ですがこんな方法もあります。

Application.GoTo Cells(1, 1), True

注意点はこちら
Application.Goto使用時の注意

Answer 2

いったん固定行のすぐ下を選択してから、A1を選択すればどうでしょう。

    Cells(3, 1).Select
    Cells(1, 1).Select

Comments

[wkbiz]

ご回答ありがとうございます。
ご教授いただいた内容をヒントにウィンドウ枠の固定のアドレスを取得できないか？と思い探してみると
r = .SplitRow + 1
c = .SplitColumn + 1
というのが見つかりました。

最終的にやることはhatena19さんご提示の内容のとおりなんですが、splitcolumnなんてのがあるのを知らなかったので勉強になりました。