[[20140806093048]]　『空白行を含む行を選択したい』（千田）　ページの最後に飛ぶ

『空白行を含む行を選択したい』（千田）

閲覧ありがとうございます。
下記のエクセルデータがあるとしまして、全選択してコピーをし、別シートへ貼り付けをしたいと考えております。
　
データはA～AOまで固定
行数は1～30程
空白セルを含む場合有り

　　A　　B　　C　　D　　E　　F　　G　…　AO
1　200　004　　　東京　　ﾌﾞﾛｯｸ　　　　田中
2
3

自分なりに考えましたのが

    Range("A1:AO1").Select
    Range(Selection, Selection.End(xlDown)).Select

しかし、これですと1行しかない場合は一番下の行まで選択してしまいます。
無知で申し訳ございませんが、ご教示いただけませんでしょうか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 必ず入力がある列はございませんか？
 例えばA列は必ず入力があるのでしたら、
 Range(Range("A" & Rows.Count).End(xlUp),"AO1")
 こんな感じでも出来ると思います。

 また空白で囲まれた表範囲に該当するのでしたら
 Range("A1").CurrentRegion
 これでもできそうです。

 しかし、このような場合難しいです。
	[A]	[B]	[C]	[~]	[AO]
[1]	XXX	aaa		bbb	
[2]		bbb		111	
[3]	aaa	---			
[4]	XXX	YYY			
[5]		ZZZ			YYY
[6]	XXX	---			aaa
[7]	ZZZ				XXX
[8]				---	aaa
[9]			aaa	+++	
[10]	bbb			+++

 もう少し詳しく教えていただけますか？
（稲葉） 2014/08/06(水) 12:58

質問させて頂きました千田と申します。
説明不足で失礼しました。
フィルタで絞ったデータを別シートに貼り付け見出し行と不必要な列を削除してコピー
それを各項目を入力しているシートへ貼り付けるという事を繰り返し行うVBA作成を考えております。

基本的にはA1・B1には必ず入力があるはずですが、フィルタで絞った際に何も該当しなければ
真っ白なシートをコピーして貼り付け、最後に空白行削除のVBAを使い完了というのが私が考えた内容です。

	[A]	[B]	[C]	[~]	[AO]
[1]	aba		　　　　ddd　
[2]	?tc	bbb		111	
[3]	aaa	---			
[4]	XXX	YYY			
[5]	aaa	ZZZ			YYY
[6]	XXX	---			aaa
[7]	ZZZ				XXX

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

上記のデータ下記のシートへ貼り付けます。
東京の場合、B2
神奈川の場合、B15

	[A]	[B]	[C]	[~]	[AO]
[1]		番号	担当	携帯	受付
[2]	東京				
・
・
[15]	神奈川				
・
・
[30]	埼玉				
・
・
[45]	千葉

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

そして最後にB列のセルが空白の場合は削除するVBA(完成済)を使うことにより

	[A]	[B]	[C]	[~]	[AO]
[1]		番号	担当	携帯	受付
[2]	東京	aaa	bbb	ccc	
[3]	東京	abc	bbc	ZZZ	VVV
[4]	東京	BBB	bbb	ccc	
[5]	神奈川	FFF	ggg	rrr	xxx			
[6]	千葉	NNN	asd	qwe	aaa

このようなデータが作成できるのでは？と考えております。
（千田） 2014/08/06(水) 14:01

 それでしたら、フィルタオプションが使えると思います。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_advancedfilter.html

 ＞フィルタで絞ったデータを別シートに貼り付け見出し行と不必要な列を削除してコピー 
 ＞それを各項目を入力しているシートへ貼り付けるという事を繰り返し行うVBA作成を考えております。
 シート構成や「各項目」が何を指しているか分かりませんが、例として地域と捉えます。
 シートが関東、関西、東北、北海道、元データ、抽出データ、抽出条件
 ７シートがあるとして、
 １）元データは提示されたデータ、
 ２）抽出データの１行目に元データの項目、
 ３）抽出条件には元データの抽出する項目
 これらがあるとして、マクロの記録を取ります。

 ３）の条件に抽出したい値を入れます。
 空白以外なら、「<>""」で出来たと思います・・・
 条件についてはこちら
http://www.excel-vba.net/excel-range-018.html

 ２）を選択した状態で「データ＞並べ替えとフィルタ＞詳細設定」
 「指定した範囲」を選択。
 リスト範囲を１）で最大になる範囲を選択
 検索条件範囲に３）の範囲を選択
 （繰り返し処理で範囲が可変の場合は、CurrentRegionで条件範囲を指定することが可能です。 ）
 抽出範囲に２）の項目名がある１行を選択

 これでOKを押せば抽出されます。
 後は最初に説明した
 Range("A1").CurrentRegion
 で範囲を取得出来ます。

 これをコピーして各シートに貼り付けていかがですか？

 VBAを組んでほしいという要望でしたら、必要な情報が「各項目」とか「完成済みのVBA」とかシート
 構成や抽出条件などが分からないので出来ません。
（稲葉） 2014/08/06(水) 14:28

コメント返信：

[ 一覧(最新更新順) ]

[[20140806093048]] 『空白行を含む行を選択したい』（千田） ページの最後に飛ぶ

[[20140806093048]]　『空白行を含む行を選択したい』（千田）　ページの最後に飛ぶ