ベストアンサー

オートフィルターによって、抽出したセルにだけペーストしたい。

2003/03/07 10:23

例えば、５行ごとの世帯表があります。 A列には氏名が入力されています。２人世帯は２行しか使いませんので、下３行は何も入力されていない行です。つまり、10世帯分で100行あり、その中に合計38名分の氏名が入力されています。列を挿入して、B列に新しい列を作りました。この列に、別シートの同じ世帯員の生年月日が入力された列（ブランクの無い38行の38個のセル）を貼り付ける場合、どのように貼り付けるのでしょうか。オートフィルターで、A列の空白セルを除いてから貼り付けたら、オートフィルター解除後、空白セルにも貼り付いてしまったので、ずれてしまいました。オートフィルターで、省いた（隠した）セルに貼り付かないように貼り付けるにはどうすればいいのでしょうか。

kurumidou
お礼率79% (79/99)

オフィス系ソフト
回答数5
ありがとう数3

みんなの回答 （5）
専門家の回答

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

ベストアンサー

losedog
ベストアンサー率66% (22/33)

2003/03/07 12:48 回答No.2

オートフィルタの機能では難しそうです。並び替えを使えばできます。世帯表と生年月日データは、空白の有無が違うだけで順番は同じですね？まず、世帯表のシートにもう１列（Ｃ列）を挿入します。Ｃ列には、1,2,3,4,・・・・と１００行まで入力します。（オートフィルの連続データで入力）オートフィルタで空白以外の行だけ表示して、Ｂ列に、例えば１と入力します。（３８行分）Ｂ列とＣ列で「並び替え」をすれば、空白以外の行が順番どおりに固まりますので、そこのＢ列に生年月日を貼りつけます。最後に、Ｃ列で「並び替え」をして、Ｃ列を削除します。

質問者

お礼 2003/03/07 16:48

並び替えた時に、貼り付けて、連続数値を入力したC列を使って同じ序列に復帰すると。なるほどなるほど。お見事です！ありがとうございました。オートフィルターでＡ列を空白セル以外にした表示のまま、B列に連番を入力する方法が分かりません。 B１に「１」B2に「２」を入力して、この２つのセルを範囲指定して、右下スミをつまんで下に引っ張ると、「１、２、１、２、．．．」となってしまうのです。どのように、連番入力するのでしょうか。

ログインすると、全ての回答が全文表示されます。

その他の回答 (4)

imogasi
ベストアンサー率27% (4737/17070)

2003/03/07 22:51 回答No.5

VBAで回答。 sheet1,sheet2を本番に合わせてシート名にしてください。('Aとした行) sheet2で生年月日はＣ列にあるものとしています。本番に合わせて下さい（'Bとした行） Sub test01() Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Worksheets("sheet1") 'A Set sh2 = Worksheets("sheet2") 'A j = 1 For i = 1 To 100 If sh1.Cells(i, "A") = "" Then Else sh1.Cells(i, "B") = sh2.Cells(j, "C") 'B j = j + 1 End If Next i End Sub

質問者