エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14729 for VBA�� (0.003 sec.)

[[20140806093048]]: #score: 3408; @digest: 793d76738e26b8836682727bb76ddfc7; @id: 65810; @mdate: 2014-08-06T05:28:09Z; @size: 3978; @type: text/plain; #keywords: 千田 (19771), 帯受 (15497), 当携 (15497), 号担 (7282), 付[ (5223), 各項 (3470), 出デ (2588), 成済 (2514), ・[ (2498), 不必 (2434), 神奈 (2418), 奈川 (2269), 携帯 (2175), 出条 (2121), 受付 (1858), 東京 (1788), ）抽 (1780), ト構 (1777), へ貼 (1580), 件範 (1529), 千葉 (1492), し行 (1359), xxx (1312), け見 (1307), 元デ (1250), 抽出 (1093), 白行 (933), な列 (888), 項目 (853), bbb (829), トへ (801), currentregion (789); 『空白行を含む行を選択したい』（千田）
閲覧ありがとうございます。下記のエクセルデータがあるとしまして、全選択してコピーをし、別シートへ貼り付けをしたいと考えております。データは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作成を考えております。シート構成や「各項目」が何を指しているか分かりませんが、例として地域と捉えます。シートが関東、関西、東北、北海道、元データ、抽出データ、抽出条件 7シートがあるとして、 1）元データは提示されたデータ、 2）抽出データの1行目に元データの項目、 3）抽出条件には元データの抽出する項目これらがあるとして、マクロの記録を取ります。 3）の条件に抽出したい値を入れます。空白以外なら、「<>""」で出来たと思います・・・条件についてはこちら http://www.excel-vba.net/excel-range-018.html 2）を選択した状態で「データ＞並べ替えとフィルタ＞詳細設定」「指定した範囲」を選択。リスト範囲を1）で最大になる範囲を選択検索条件範囲に3）の範囲を選択（繰り返し処理で範囲が可変の場合は、CurrentRegionで条件範囲を指定することが可能です。）抽出範囲に2）の項目名がある1行を選択これでOKを押せば抽出されます。後は最初に説明した Range("A1").CurrentRegion で範囲を取得出来ます。これをコピーして各シートに貼り付けていかがですか? VBAを組んでほしいという要望でしたら、必要な情報が「各項目」とか「完成済みのVBA」とかシート構成や抽出条件などが分からないので出来ません。（稲葉） 2014/08/06(水) 14:28 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201408/20140806093048.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ