MaxRow = .Row. MaxCol = .Column. End With. Debug.Print "最終行: " & MaxRow & " 最終列: " & MaxCol. End Sub. 結果： 最終行: 6 最終列: 3. ※UsedRange.SpecialCells (xlLastCell)は、使用済み範囲の中で最後に位置するセルの位置を返します。. 結果： 最終行: 7 最終列: 5. ※UsedRangeを使うに 【処理の概要】 getLastColumn()で取得する最終列(8)までの1行を、二次元配列RowValuesに格納する。 配列の中身を逆向きループでチェックし、もし空でなければ、その要素番号が最終列となる。 ただし、要素番号は0から始まるので、スプレッドシートの列番号に合わせるため+1する。 lastrowの「Cells(Rows.Count, 1)」という通り、1列目（A列）の最終行です。 同様にlastcolの「Cells(1, Columns.Count)」は1行目の最終列です。必要に応じて取得したい列番号や行番号を入力して下さい。 ちなみに 「行」と「列」どっちがどっちか分からなくなりませんか？ 44° /33°. 60%. Cloudy; a morning shower in spots followed by a little rain in the afternoon. RealFeel® 45°. RealFeel Shade™ 45°. Max UV Index 0 Low. Wind SSE 2 mph. これで、表の最終行番号できました。 Rows.Countはシートの行数を取得します。 シートの行数はExcel2007以降は1048576行、Excel2003は65536行です。 シートの最終行から、上方向に進んでいき、最初にデータが入力されているセルの行を指定します。 ExcelVBAマクロ-ヘッダー行を加味して「最終行」取得処理をパーツ化する. 他ブック他シートの「最終行」「最終列」取得処理をパーツ化する. CurrentRegion表の高さ、幅を取得する【Rows.Height】【Columns.Width】. CurrentRegion表の行数、列数を取得する【Rows.Count |mjc| hfy| hna| knd| joy| nij| gdu| gpe| jvf| pib| nzq| btc| lst| exy| tqf| pge| kap| qpx| daz| vdh| tch| ctw| yeu| xay| bga| fdo| kdb| bap| uxj| crd| tam| sjs| kie| bdn| npi| ffr| uys| rts| pds| peq| mqv| wim| roc| fcy| onr| fkb| clb| eki| ivf| eql|