親子におすすめの新型プラネタリウムとは?

最終列と、最終行を算出するのに下記を使用しています。
firstRow = Columns("A").End(xlDown).Row
lastCol2 = Cells(1, Columns.Count).End(xlToLeft).Column
しかし、この場合、上記例でいうとA列、1行目それぞれ指定の最終行、最終列の算出になります。

どの列が最終行であるか不定、もしくはどの行が最終行であるか不定の場合、
最終行、及び最終列の算出についての構文をご教授頂けないでしょうか?

なお、セルになんらかの値が入力されているセルが対象になります。
(書式設定のみの空白セルは含めない)

A 回答 (3件)

>セルになんらかの値が入力されているセルが対象になります。


>(書式設定のみの空白セルは含めない)
と条件付きですから、その場合は、既出ですが、、CurrentRegion になりますね。
桂馬飛びでも、つながっていることになります。
ところが、そのとり方だけど、定形の書き方があります。

'//
Sub Test1()
Dim LastRow As Long
Dim LastCol As Long

With  Range("A1").CurrentRegion
  LastRow = .Cells(.Cells.Count).Row
  LastCol = .Cells(.Cells.Count).Column
End With
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました。
ご教授頂いた内容を基に勉強いたします。

お礼日時:2019/08/15 19:24

ActiveCell.SpecialCells(xlLastCell).Select



スペシャルセルズの引数で『xlLastCell』を指定するとデータ入力のある最終セルがわかりますので、その座標から『Row』や『Column』を取得する方法ではいかがでしょうか
    • good
    • 0
この回答へのお礼

ありがとうございました。
ご教授頂きました内容を基に勉強いたします。

お礼日時:2019/08/15 19:23

こんにちは



Cells(1,1).CurrentRegion
などで、代用できるケースが多いのではないかと思います。

確実に求めたいのであれば、各行(列)に対してそれぞれ最終列(行)を求めて、そのなかの最大列(行)を採用すれば良いでしょう。
対象とする範囲をUsedRangeとしておいてループすれば十分でしょう。
    • good
    • 0
この回答へのお礼

ありがとうございました。
ご教授頂いた内容を基に勉強いたします。

お礼日時:2019/08/15 19:23

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング