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

解決済

質問者：kurumidou
質問日時：2003/03/07 10:23
回答数：5件

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

オートフィルターで、A列の空白セルを除いてから貼り付けたら、オートフィルター解除後、空白セルにも貼り付いてしまったので、ずれてしまいました。
オートフィルターで、省いた（隠した）セルに貼り付かないように貼り付けるにはどうすればいいのでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： losedog
回答日時：2003/03/07 12:48

オートフィルタの機能では難しそうです。

並び替えを使えばできます。

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

- 0
- 件

通報する

この回答へのお礼

並び替えた時に、貼り付けて、連続数値を入力したC列を使って同じ序列に復帰すると。
なるほどなるほど。お見事です！
ありがとうございました。

オートフィルターでＡ列を空白セル以外にした表示のまま、B列に連番を入力する方法が分かりません。
B１に「１」B2に「２」を入力して、この２つのセルを範囲指定して、右下スミをつまんで下に引っ張ると、「１、２、１、２、．．．」となってしまうのです。
どのように、連番入力するのでしょうか。

通報する

お礼日時：2003/03/07 16:48

No.5

回答者： imogasi
回答日時：2003/03/07 22:51

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