Hatena::ブログ(Diary)

まりふのひと RSSフィード

訪問数:3689329直近記事一覧見かたPCRFAQ別紙ふせんSSKPro一覧)|麻里府発OneDriveiPS-BB掲示板2
月間予定表予定一覧MAPS-TAMAPS-TPiPS-77iPS-BB)(修了:iPSなかよしiPS遊々, iPSマクロ研WAWP)|よくある質問

 | 

2013.12.12 (木)

最終行、最終列を取得するExcel VBAのコード

§A列の最終行を取得する
  • 空白セルが無い場合 ‥‥ Ctrl+↓を使う
    Range("A1").End(xlDown).Row
  • 空白セルがある場合 ‥‥ 最後の行から Ctrl+↑ する
    Cells(Rows.Count, 1).End(xlUp).Row

§1行目の最終列を取得する
  • 空白セルが無い場合 ‥‥ Ctrl+→を使う
    Range("A1").End(xlToRight).Column
  • 空白セルがある場合 ‥‥ 最後の列から Ctrl+← する
    Cells(1, Columns.Count).End(xlToLeft).Column

§アドレスを取得するには
  • 上記 Row または Column を Address とすればよい。
    Range("A1").End(xlDown).Address
  • 但し、絶対番地が返るので、相対番地にするには "$" を取る必要がある。
     Replace 関数を使った例
    Replace(Range("A1").End(xlDown).Address, "$", "")

§Ctrl+End
  1. 表の右下隅のセルの行
    ActiveCell.SpecialCells(xlLastCell).Row
  2. 表の右下隅のセルの列
    ActiveCell.SpecialCells(xlLastCell).Column
  3. 表の右下隅のセルのアドレス
    Range("A1").SpecialCells(xlLastCell).Address
  • デバッグウィンドウで動作を確認した。
  • ActiveCell の代わりに、Range("A1")でも動作する。(No.3)
     A1 はダミーで、表外であっても問題ない。アクティブシートの意味だろう...

§Ctrl+End を使った表の選択例

表の右下隅のセル(Ctrl+End のアドレス)が J15 と仮定する。

  1. A1〜J15 を選択する ‥‥ セル A1 をクリックし、Ctrl+End
    Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
  2. B2〜J15 を選択する ‥‥ セル B2 をクリックし、Ctrl+End
    Range("B2", ActiveCell.SpecialCells(xlLastCell)).Select

§Excel の最大値
  • 最大行数
    MaxRow = Rows.Count
  • 最大列数
    MaxCol = Columns.Count

VBA初心者VBA初心者 2014/04/24 18:14 下記のVBAで検索位置を変更したい
Dim sh1 As Workshee, sh2 As Worksheet, rng1 As Range, rng2 As Range

Dim i1 As Long, i2 As Long, j As Long
Dim ie1 As Long, ie2 As Long

Set sh1 = Worksheets("Sheet3")
Set sh2 = Worksheets("Sheet1")
Set rng1 = sh1.Range("G17:G21")
Set rng2 = sh1.Range("B2")



ie1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row  ie1=sh1.Cells(検索位置を指定したい G17〜G21まで
ie2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
'上の方向に最終行検索する

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト

コメントを書くには、なぞなぞ認証に回答する必要があります。

トラックバック - http://d.hatena.ne.jp/ogohnohito/20131212/p1
 | 
迷惑コメント(英文)で困っております
コメント入力方法は
こちら を参照してください。


お世話になります

カレンダー
<< 2013/12 >>
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
おいでませ
3689330