• ベストアンサー

EXCEL-VBAでワークシートのデータがはいっている最終の行番号の取得

ExcelVBAは不得意のものです。 ワークシートのＡ列にデータが入っているのですが、10行目までの時もあれば20行目までデータが入っている場合もあります。データが入っている最終行の行番号を取得したいのですがどうしたら良いのでしょう。 何をするかというと、その番号を取得してループ処理をしたいのです。For i=1 To 最終行の行番号みたいに 多分EOFなんて指定じゃないですよね

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

行番号が欲しい場合 　MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Row 列番号が欲しい場合 　MsgBox ActiveSheet.Cells.SpecialCells(xlLastCell).Column こうすると、それぞれメッセージボックスで表示される筈です。

souta_n
質問者

お礼

おかげさまで、このコードを使って目的のものが作れました。ありがとうございました。

その他の回答 (1)

  • iiikkk
  • ベストアンサー率37% (92/247)
回答No.1

Range("A1").Select For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 　処理 Next これでどうでしょうか。

souta_n
質問者

お礼

やってみました。 なにやら途中で止まります。 とりあえず#2の方のコードを使って目的のことが出来ました。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【Excel VBA】データの最終行について

    Excel2003を使用しています。 ある一覧表形式のデータSheet1をSheet2に値のみコピーして、このSheet2を“印刷用”として、ページ設定等をして、印刷のみに使用しようと思っています。 Sheet2のI列、J列、K列には数値が入力されていて、I列、J列、K列のデータの最終行の1行下に、それぞれ6行目からデータ最終行までの合計の数式が入力されるよう、コードを追加したのですが、数式は入力されるものの、入力したい行に数式が入力されません。 マクロを実行して、数式が入力された行を見てみると、301行目に入力されていました。 Sheet1は別のシートのデータを数式により表示していて、数式が300行まで入力されているので、Sheet2の元になっているSheet1の影響(？)なのかな～？と…。こういう場合、どうすればいいでしょうか？ コードは下記のようになっています。 よろしくお願いします。 ---------------------------------------- Sub 印刷用作成() Dim i As Integer Dim j As Long Sheets("Sheet1").Activate Range("B6:L6", Range("L6").End(xlDown)).Select Selection.Copy Sheets("Sheet2").Select Range("B6").PasteSpecial xlPasteValues Application.CutCopyMode = False For i = 9 To 11 j = Application.Max(j, Cells(65536, i).End(xlUp).Row + 1) Next For i = 9 To 11 Cells(j, i).FormulaR1C1 = "=SUM(R2C[0]:R[-1]C[0])" Next i End Sub

  • VBAで最終行の取得について

    UserFormのConboBoxで「○○」を選んで、 UserFormのTextBoxで『あいう』と入力すると、ワークシートに A 　　　　　B 1 ○○　　 ×× 2 あいう と表示され、 UserFormのConboBoxで「××」を選んで、 UserFormのTextBoxで『アイウ』と入力すると A 　　　　　B 1 ○○　　 ×× 2 あいう　 アイウ 3 : 　　　: と表示されるようにしたいと思います。 以下のプログラムまではできています。 ********************************************* Private Sub UserForm_Initialize() 　Dim lasClm As Integer, i As Integer 　lasClm = Sheet1.Range("A1").End(xlToRight).Column 　　For i = 1 To lasClm 　　ComboBox1.AddItem Sheet1.Cells(1, i).Value 　　Next i End Sub ********************************************* Private Sub CommandButton1_Click() 　Select Case ComboBox1.Text 　Case Sheet1.Cells(1, 1).Value　'「○○」が選択 　Sheet1.Cells(2, 1).Value = TextBox1.Text　・・・(1) 　Case Sheet1.Cells(1, 2).Value　'「××」が選択 　Sheet1.Cells(2, 2).Value = TextBox1.Text　・・・(2) 　End Select 　UserForm1.Hide End Sub ********************************************** 今は(1)、(2)のように直接セルを指定しているのですが、 この部分を各列（A列、B列）の最終行の値を取得して、 最終行＋１のセルに順次TextBoxに入力された値を代入していきたいのですが、 どのようにしたらよいのでしょうか。 しかし、A列とB列は同じように値が増えていくとは限りません。 例） 　　　A 　　　 B 1 ○○　　　×× 2 あいう　 アイウ 3 かきく 4　さしす となる場合もあるので、A列とB列それぞれの最終行の値を取得したいと思っています。

  • VBA Excel 背景色の最終行取得～

    Excelのシート上に背景色が変更になった箇所のH3から 背景色の最終行を取得し その最終行のB列の値を取得したいのですが宜しくお願いします。 取得した値をMsgBoxで表示できる様に作成したいのですが、 背景色の最終行って、どの様に作成したら良いのでしょうか？ UserForm上で操作ができたら良いのですが。 画像の様な事をしたいです。 お手数おかけしますが教えて頂けますでしょうか？

  • ＶＢＡで、配列のデータをセルに書き戻す方法について

    1000行200列の配列があり、配列の５列目と６列目のデータを、セルの１０列目と１１列目にすばやく書き戻す方法を教えてください。 （方法１） Dim DATA() As Long ReDim DATA(1 To 1000, 1 To 200) FOR 行番号= 1 TO 1000 CELLS(行番号,10).VALUE = DATA(行番号,5) CELLS(行番号,11).VALUE = DATA(行番号,6) NEXT （方法２） Dim DATA() As Long ReDim DATA(1 To 1000, 1 To 200) Dim WORK1() As Long ReDim WORK1(1 To 1000, 1 To 1) Dim WORK2() As Long ReDim WORK2(1 To 1000, 1 To 1) FOR 行番号= 1 TO 1000 WORK1(行番号,1) = DATA(行番号,5) WORK2(行番号,1) = DATA(行番号,6) NEXT RANGE("J1:J1000").VALUE = WORK1() RANGE("K1:K1000").VALUE = WORK2() （方法１）より（方法２）の方が早いのですが、WORKに貯めるのもめんどうなので、 RANGE("J1:K1000").VALUE = DATA(1,5), DATA(2,5), DATA(3,5),～,DATA(999,6),DATA(1000,6)のようなことができればと思います。 よろしくお願いします。

  • シート内の最終書き込み行を取得したい

    シート内の最終書き込み行を取得したいのですがどうすればよいのでしょうか？ 次のようにしてExcelVBAで最終行を取り出しています。 Workbooks(FileName).Sheets(SheetName).UsedRange.Rows.Count ' FileName、SheetNameは固有の名称です これですと、セルの属性定義をしたところも含まれます。 つまり、１０００行まで罫線を引いていたり、行の高さを指定していたりしたら１０００が返ってきます。 属性定義の行は無視して、値をセットしてある行の最終行を知りたいのです。 よろしくお願いいたします。

  • VBA　データの行番号を知るには？

    B列 お お い い い い う う ・ ・ こんな感じでデータがあるときに、私が操作したいデータが”い”の場合、”い”の先頭の行番号と最後の行番号を取得したいのですが、お分かりの方教えていただきたい。

  • エクセル：データが入った最終行の行番号の取得

    お世話になります。 Ａ列にいろいろデータが入っているとして、データが入っている一番下（最終行）の行番号をB1のセルに表示させるにはどういう計算式で出来るでしょうか？ Ａ列のデータは数値だけでなく文字列も含みます。また途中空白セルもあります。 A1～A20にデータが入っているときはB1に20と表示させる。 よろしくお願いします。

  • VBAで最終行を取得する方法

    最終行を取得する方法について教えていただきたいです。 例えば以下のようなデータがあった場合 （A列～D列、３行までデータがある状態） -------------------------------- 田中　24歳　生命保険　営業 山口　47歳　銀行　　　営業 大野　36歳　IT　　　　SE -------------------------------- ここで最終行を取得する際に、 Range("A1").End(xlDown).Rowをすれば取得できました。 しかしデータが以下のような場合 （A列が空白） -------------------------------- 田中　24歳　生命保険　営業 　　　47歳　銀行　　　営業 　　　36歳　IT　　　　SE -------------------------------- この場合に上記と同じ取得方法をすると、オーバーフローになります。 そこで他の取得方法を調べたのですが、 ActiveSheet.UsedRange.Rowを試したところ、最終行として取得できたのは「１」でした。 A列が空白の状態でも、今回の場合だと「３」という最終行を取得するにはどうすれば良いでしょうか。

  • VBA　データのある最終行の取得

    エクセルVBAで最終行を取得する良い方法を教えて下さい。 VBA初心者でいきづまっていまして、、、 内容はボタンを押した時にF列に対して最終行を取得して、 その最終行の下のセルにボタンの内容が繁栄させるようにしたくて Private Sub CommandButton202_Click() Dim lastRow As Long lastRow = Cells(Rows.Count, 6).End(xlUp).Row + 1 Cells(lastRow, 6).Value = CommandButton202.Caption End Sub と作ってみたのですが、F17より下に文字がはいっているため、 検索範囲を「F列」ではなく、「F2：F16」のように範囲を指定したいのですがどうしたらよいでしょうか、、、。 結構色々調べてはみたのですができなくて、、、

  • VBAでページ番号、ページ最終行を取得する方法

    エクセルにデータを表示させて印刷するときに、 一続きのデータがページをまたいでしまうのですが、 またいだ時にページの一番はじめに、データの項目を表示させたいと思っています。 PrintTitleRowsを使用しようと思いましたが、 データの項目→データ、データの項目→データというようにエクセルシートに表示されているため、もし、丁度ページが変わったときにうまくデータの項目が次のページの1列目にくるとデータの項目がダブってしまい、使用することができません。 他の方法を考えてみたのですが、その方法では現在のページ番号を取得する方法か現在のページの最終行(データが最終行に入力されていない場合も含む)を取得する方法を知らなくては実現することができません。 いろいろ調べたのですが、見つからず、このような方法がないのかもしれません。 うまく状況が説明できずすみません。 もしご存知の方がお見えになりましたら教えてください。 また、何か他によい方法をご存知の方がお見えになりましたら教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する