Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24796 / 76732 ←次へ | 前へ→

【57283】Re:A列からN列までのコピーのしかたを教えていただけないでしょうか
発言  かみちゃん  - 08/8/4(月) 21:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>データはA列からN列まであります。
>行はその時々で不特定です。

求めたい行の範囲のA列の最終行には必ずデータが入っている場合、
つまり、求めたい範囲がA1:N10の場合、A10セルにはデータが入っているのであれば、
Endプロパティを使って、以下のような感じになります。

Sub Sample1()
 MsgBox Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Address
End Sub

汎用性を求めるならば、以下のような書き方もできます。
Sub Sample2()
 With Range("A1")
  MsgBox .Resize(.Offset(Rows.Count - .Row).End(xlUp).Row - .Row + 1, 14).Address
 End With
End Sub

ただし、A〜N列の間の最終行がバラバラで、時によって違う場合や、
最終行が、数式で""という空白の結果になっている場合などは、Endプロパティ
による判定ができませんので、以下のような方法になります。

Sub Sample3()
 Dim FR As Range
 
 With Columns("A:N")
  Set FR = .Find(What:="*", After:=.Cells(1, 1), LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
  MsgBox Range(.Cells(1, 1), FR).Columns(1).Resize(, 14).Address
 End With
End Sub
1 hits

【57281】A列からN列までのコピーのしかたを教えていただけないでしょうか とも 08/8/4(月) 20:35 質問
【57283】Re:A列からN列までのコピーのしかたを教え... かみちゃん 08/8/4(月) 21:03 発言
【57286】Re:A列からN列までのコピーのしかたを教え... とも 08/8/4(月) 21:42 質問
【57287】Re:A列からN列までのコピーのしかたを教え... かみちゃん 08/8/4(月) 21:52 発言
【57284】Re:A列からN列までのコピーのしかたを教え... kanabun 08/8/4(月) 21:34 発言
【57285】Re:A列からN列までのコピーのしかたを教え... かみちゃん 08/8/4(月) 21:38 発言
【57288】Re:A列からN列までのコピーのしかたを教え... kanabun 08/8/4(月) 22:00 質問
【57291】Re:A列からN列までのコピーのしかたを教え... かみちゃん 08/8/4(月) 22:11 発言
【57289】Re:A列からN列までのコピーのしかたを教え... kanabun 08/8/4(月) 22:04 発言
【57290】Re:A列からN列までのコピーのしかたを教え... とも 08/8/4(月) 22:05 お礼

24796 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free