ステートメント制御文の使用例5
使用例5
出現値を、重複なしで抽出し転記する。(2種類)
'出現値を重複なしで抽出転記
' 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