|
▼74 さん:
><Aシート> <Bシート>
>1 田中 男 1 田中 女
>2 鈴木 女 2 鈴木 女
>3 高橋 男 3 高橋 男
> 4 加藤 男
>
>とあった場合、Cシートには下記のように抽出したいのです。
>
><Cシート>
>1 田中 女
>4 加藤 男
>
こんにちは。
こんな方法ではどうですか。
Sub TESTa()
Dim SD As Object
Dim i As Long
Dim j As Long
Dim vA As Variant
Dim vB As Variant
Dim vC As Variant
Set SD = CreateObject("Scripting.Dictionary")
With Worksheets(1)
vA = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
With Worksheets(2)
vB = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
ReDim vC(1 To UBound(vB), 1 To UBound(vB, 2))
For i = 1 To UBound(vA)
SD(vA(i, 1)) = Empty
Next
For i = 1 To UBound(vB)
If Not SD.Exists(vB(i, 1)) Then
j = j + 1
vC(j, 1) = vB(i, 1)
End If
Next
Worksheets(3).Range("A1").Resize(j, 1).Value = vC
End Sub
|
|