使用例６

出現値を重複なしで抽出し、データ数をカウントする。


　


Sub kihon()
  '所属を重複なしで抽出＆カウント
  Dim myR As Range
  r = Worksheets(1).Rows.Count                 'シート最終行
  Set myR = Range("C1", Cells(r, 3).End(xlUp)) '所属範囲
  myR.AdvancedFilter action:=xlFilterCopy, _
    copytorange:=Range("E1"), unique:=True     '検索抽出
  With Range("E2", Cells(r, 5).End(xlUp))      'カウント↓
     .Offset(, 1).Value = Application.CountIf(myR, .Cells)
  End With
End Sub

                                                                     back top