質問: excel 重複判断しつつ並べ替えする関数 お世話になっております。 添付の画像を見て頂きたいのですが、 1.添付した画像のような感じで重複、非重複が分かるようにa-z順に並べる関数と、 2.その非重複の全リストの一覧にする関数 はどのように関数を書けばいいでしょうか。 お知恵お貸し下さいm(_ _)m
回答: no.4です! たびたびごめんなさい。 前回のコードではa~d列データが昇順に並んでいないとちゃんと表示されません。 今度はa~d列データがどんな並びでも対応できるようにしてみました。 前回のコードは削除して↓のコードに変更してください。 sub test2() 'この行から dim i, j, k as long application.screenupdating = false for j = 1 to 4 k = cells(rows.count, j).end(xlup).row range(cells(2, j), cells(k, j)).sort key1:=cells(1, j), order1:=xlascending next j for j = 1 to 4 for i = 2 to cells(rows.count, j).end(xlup).row if worksheetfunction.countif(columns(5), cells(i, j)) = 0 then cells(rows.count, 5).end(xlup).offset(1) = cells(i, j) end if next i next j k = cells(rows.count, 5).end(xlup).row range(cells(2, 5), cells(k, 5)).sort key1:=cells(1, 5), order1:=xlascending for k = cells(rows.count, 5).end(xlup).row to 2 step -1 for j = 1 to 4 for i = cells(rows.count, j).end(xlup).row to 2 step -1 if cells(i, j) = cells(k, 5) then cells(i, j).cut destination:=cells(k, j) end if next i next j next k application.screenupdating = true end sub 'この行まで ※ 操作方法は前回同様です。 何度も失礼しました。m(_ _)m