[[20100226074508]]　『空白を除いて転記する』（DABO）　ページの最後に飛ぶ

『空白を除いて転記する』（DABO）

質問お願いします。

sheet1に表があり、A列からP列までの19行の表があります。(I列からP列は非表示)
A列に「名前」B列に「番号」C列に「単価」…　といった具合です。

なお、A列の「名前」は入力規則により、リストから選択できます。

質問は、A列に名前が入力された行のみ(空白を除いて)sheet2に転記したいのですが、どのようにしたら良いでしょうか？　ということです。

よろしくお願いします。

 A列をオートフィルター(空白以外）で抽出し、コピーすればどうでしょうか？
　　　　　　　　　(SHIOJII）

ご解答ありがとうございます。
ただ、オートフィルタのマーク▼を出来るだけ出したくないのと、オートフィルタにすると非表示列が転記されません･…

何か別の方法はありませんか？

 Sheet1
     A       B      C    ・・・・   Q
1   名前   番号   単価            作業用
2   AAA    123    1,000             1
3   BBB    234    1,500             2
4		
5   DDD    456    2,000             4
6

 Sheet1のQ列を作業列とします。		
 Q2=IF(A2="","",ROW(A1))		
 Q20までフィルダウン

 Sheet2の		
 A2=IF(COUNT(Sheet1!$Q$2:$Q$20)<ROW(A1),"",INDEX(Sheet1!A$2:A$20,SMALL(Sheet1!$Q$2:$Q$20,ROW(A1))))		
 P2まで横へオートフィル（コピー）して、A2:P2を適宜にフィルダウン

 ◆作業列を設けない場合は、配列数式を使用することになります。

 １．I:P列を再表示
 ２．オートフィルタを設定
 ３．A列の空白以外を表示
 ４．データ範囲をコピーして、貼り付け
 ５．I:P列を非表示
 ６．オートフィルタを解除

 の様な操作を・・・毎回やるのは面倒なので
 マクロの記録にとってみても良いかもしれません。

 (HANA)

 オートフィルタではなくフィルタオプションでやればいいのでは？

 Sheet2にA列からP列の項目名を入力しておき
 抽出範囲を　$A$1:$P$1　にする。

 非表示の列も抽出するでしょう。
 それをマクロ記録すればいいです。

 （よみびとしらず）

コメント返信：

[ 一覧(最新更新順) ]

[[20100226074508]] 『空白を除いて転記する』（DABO） ページの最後に飛ぶ

[[20100226074508]]　『空白を除いて転記する』（DABO）　ページの最後に飛ぶ