使用例５

出現値を、重複なしで抽出し転記する。(２種類)


　


'出現値を重複なしで抽出転記
' Find メソッドを使う方法
Sub 抽出1()
  Dim c As Range
  Dim r As Long
  r = Worksheets(1).Rows.Count
  With Worksheets(1).Range("a1:a11")
    For i = 1 To 11
    Set c = .Find(i, LookIn:=xlValues)          '新番号を検索
      If Not c Is Nothing Then
        Cells(r, 4).End(xlUp).Offset(1).Select  '入力行選択
        Selection.Value = c.Value               '検索番号を入力
        Selection.Offset(, 1).Value = _
            c.Offset(, 1).Value                 '対応する氏名を入力
      End If
    Next i
  End With
End Sub


'出現値を重複なしで抽出転記
' AdvancedFilter メソッドを使う方法
Sub 抽出2()
  With Worksheets(1)
    .Columns("A:B").AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=.Columns("D:E"), _
    Unique:=True
  End With
End Sub

                                                                   back top