最終列・最終行を取得する
うさこちゃん
「E4」に空白がある場合で記載しています。
End + 上方向キー、End + 下方向キー、End + 左方向キー、End + 右方向キーのいずれかを押す操作と同等の値を取得できますので、途中に空白がある場合は注意する必要があります。
パラメーター
| 名前 | 値 | 説明 |
|---|---|---|
| xlDown | -4121 | 下へ |
| xlToLeft | -4159 | 左へ |
| xlToRight | -4161 | 右へ |
| xlUp | -4162 | 上へ |
広告
MSI QD-OLED ゲーミングモニター MPG 491CQP QD-OLED 49インチ/湾曲/DQHD/QD-OLEDパネル/144Hz/0.03ms(GTG)/ハードウェアブルーライトカット/DisplayHDR True Black 400/AIビジョン搭載/HDMI2.1/DP/USB Type-C給電可能(最大90W)/KVMスイッチ/縦横回転・高さ調整/メーカー3年保証
●最大リフレッシュレート：144Hz●応答速度：0.03ms（GTG）●パネル駆動方式：QD-OLED●表面タイプ：ハーフグレア（反射防止コーティング）
●色域：sRGBカバー率：100％ / AdobeRGBカバー率：98.07％ / DCI-P3カバー率：99.28％●最大表示色：約10億7,300万色●視野角：178°（H） × 178°（V）
●本体サイズ：約1,195 × 328 × 410（mm）●本体重量：約10.3kg●電源タイプ：電源内蔵型●上下角度調節（チルト）：-5° ～ 20°●高さ調整：0 ～ 100（mm）●左右角度調整（スイベル）：-30° ～ 30°●画面回転（ピボット）：ー●アンチフリッカー、ナイトビジョン、ハードウェアブルーライトカット、Adaptive-Sync、AIビジョン、DisplayHDR True Black 400、Gaming Intelligence、KVMスイッチ、PIP/PBP、USBハブ機能、USB Type-C Power Delivery（90W）、VESA100（付属のスペーサーネジにて対応）
●色域：sRGBカバー率：100％ / AdobeRGBカバー率：98.07％ / DCI-P3カバー率：99.28％●最大表示色：約10億7,300万色●視野角：178°（H） × 178°（V）
●本体サイズ：約1,195 × 328 × 410（mm）●本体重量：約10.3kg●電源タイプ：電源内蔵型●上下角度調節（チルト）：-5° ～ 20°●高さ調整：0 ～ 100（mm）●左右角度調整（スイベル）：-30° ～ 30°●画面回転（ピボット）：ー●アンチフリッカー、ナイトビジョン、ハードウェアブルーライトカット、Adaptive-Sync、AIビジョン、DisplayHDR True Black 400、Gaming Intelligence、KVMスイッチ、PIP/PBP、USBハブ機能、USB Type-C Power Delivery（90W）、VESA100（付属のスペーサーネジにて対応）
最新の価格・在庫状況はAmazonでご確認ください。
サンプルコード
うさこちゃん
空白行がある場合は空白の手前で判断されますので開始位置は注意が必要です。
サンプルプログラムでは
行は”4”
列は”3”
になります。
右へ
Cells(検索行, 列開始位置).End(xlToRight).Column
下へ
Cells(行開始位置,検索列 ).End(xlDown).Row
Dim ObjThisSh As Object
Dim LngColMax As Long
Dim LngRowMax As Long
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")
With ObjThisSh
LngColMax = .Cells(4, 1).End(xlToRight).Column '開始位置 A4(4, 1)
LngRowMax = .Cells(2, 5).End(xlDown).Row '開始位置 E2(2, 5)
End With
サンプルコード（シートの末端から探す）
うさこちゃん
サンプルプログラムでは最終行・列から探しますでの空白がある場合には有効です。
行は”11”
列は”10”
になります。
左へ
Cells(検索行, Columns.Count).End(xlToLeft).Column
上へ
Cells(Rows.Count, 検索列).End(xlUp).Row
Dim ObjThisSh As Object
Dim LngColMax As Long
Dim LngRowMax As Long
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")
With ObjThisSh
LngColMax = .Cells(4, .Columns.Count).End(xlToLeft).Column
LngRowMax = .Cells(Rows.Count, 5).End(xlUp).Row
End With
免責事項
本記事のサンプルプログラムは、学習・参考用として掲載しているもので、動作や結果を保証するものではありません。 利用する場合は、ご自身の環境に合わせて確認しながらお使いください。万が一トラブルや損害が発生した場合でも、当サイトでは責任を負いかねます。
※本文中に記載の会社名・製品名・サービス名・ゲームタイトル名等は、各社の商標または登録商標であり、権利は各社に帰属します。
※サンプルはテストを行っていますが、すべての環境での動作を保証するものではありません。ご利用は自己責任でお願いいたします。
※本記事の仕様・価格・対応状況等は執筆時点で確認できた情報をもとに掲載しています。最新の情報はメーカー公式サイトをご確認ください。
※当サイトでは一部の記事において、アイキャッチ画像にAI生成を使用しています。
※Amazonのアソシエイトとして、うさねこ散歩は適格販売により収入を得ています。