エクセルでの出欠簿

質問

A列に出欠（○・×）B列に会社名・C列に出席人数・D列に出席者名となっています。このデータでA列に○の入っている会社名と出席者名を他のシートの出席者名簿に転記したいのですが、いい方法はありませんか？教えてください。
このデータの会社名は他のBookの案内状送付リストからリンクされています。

回答No.2

vbafriend

初めまして。
簡単に実行することが出来るマクロを組んでみました。コピー元をシート１コピー先をシート２としてマクロを組んであります。

・データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を開き、画面左上のVBAProjectと書かれている下のThisWorkbookと書かれている上でダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする

Sub Test()

Dim myRange As String
Dim myCell As Range
Dim myRange1 As String

myRange = Range("A1").Cells(Rows.Count, 1).End(xlUp).Address
myRange = "$A$1:" & myRange
For Each myCell In Range(myRange)
If myCell.Value = "０２" Then
If Worksheets(2).Range("A1").Value = "" Then
myRange1 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Address
Else
myRange1 = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Address
End If
myCell.EntireRow.Copy Destination:=Worksheets(2).Range(myRange1)
End If
Next myCell

End Sub

メニューバーからツール→マクロ→マクロと順にクリックし、出てきたダイアログボックスの広い白いボックスの中に書かれているThisWOrkbook.Testと書かれている文字の上でクリックして上の狭いボックスの中に同じ文字が入力されているのを確認後、実行ボタンを押す。

これで、マクロが走り、動作を確認することが出来ます。

不具合・ご不明な点等がございましたら、お気軽にお知らせ下さい。

お礼

ありがとうございます。今回はオートフィルターを使ったマクロを組んでみました。この回答は参考にさせていただきます。

回答No.1

noname#9692

タイトル行（出欠・会社名etc）を選択 - データ - フィルタ - オートフィルタ で、「出欠」の横の下向き三角クリック - ○を選択 - 抽出されたデータをコピー - 別シートに貼り付け
でいかがでしょうか。

貼り付けの際、会社名が他のbookからのリンクということですので、編集 - 形式を選択して貼り付け - 値　
にするとうまく行くと思います。

それではがんばってください。