エクセル データ抽出・印刷

質問

下記のような表でデータ抽出・印刷はうまくいくのですが、B2に抽出された氏名をいれたいのですが、うまくいきませんどのようにしたらよろしいでしょうか

　 A 　 　B　　C
1　
2　　　　＿　
3
4　
5　
6　No 　氏名　金額
7　100　Aさん　1000
8　100　Aさん　1000
9　102　Bさん　1000
10 103　Cさん　1000
11 102　Bさん　1000
12 104　Dさん　1000

※データの抽出方法は下記のとおりです。

Sub ListPrint_Test()
'リストの最終行の行番号を格納する
Dim lngLastRow As Long
Dim objList As Object
Dim objListData As Object
Dim objTempSheet As Object

'何回か同じ記述が必要になるので、Tempシートをオブジェクト変数に格納
Set objTempSheet = ThisWorkbook.Worksheets("Temp")

'既に作成されている抽出用リストを削除する
objTempSheet.Range("A6").CurrentRegion.ClearContents

'抽出条件用のリストを作成する
lngLastRow = ActiveSheet.Range("A6").End(xlDown).Row
ActiveSheet.Range("A6:A" & lngLastRow).AdvancedFilter xlFilterCopy, , objTempSheet.Range("A6"), True

'できあがった抽出条件リストのセル範囲を格納する
lngLastRow = objTempSheet.Range("A6").End(xlDown).Row
Set objList = objTempSheet.Range("A7:A" & lngLastRow)

'オートフィルターを実行し、全項目分印刷を繰り返す
For Each objListData In objList
Range("A6").Select
Selection.AutoFilter Field:=1, Criteria1:=objListData.Value
MsgBox "抽出条件：" & objListData.Value & " データの印刷をしています"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next

'オートフィルターを解除する
Selection.AutoFilter
End Sub

回答No.1

myRange · ベストアンサー

For Each objListData In objList

　　Range("B2").Value = objListData.Value

違いでしたらご容赦願います。

お礼

解決しました。
有難う御座いました。