hide_kichiの情報

気になる情報,その他役立つ情報をアップしていきます

簡単なTABLEのカウント(重複データを除いた)

VBAのTABLE内、重複データを除いた件数を計算します。

ソースは以下です。
menber2()テーブル内に重複したデータが存在したら””(ブランク)にします。
------------------------------------------------------------------------------ work_i = mem_cnt2 For i = 1 To mem_cnt2 For j = 1 To mem_cnt2 If i = j Then Else If member2(i) = member2(j) Then If member2(i) = "" And member2(j) = "" Then Else work_i = work_i - 1 member2(j) = "" End If End If End If Next j Next i mem_cnt2 = work_i Cells(30, 1) = mem_cnt2