Re: [問題] EXCEL刪除每欄的重複值
※ 引述《kalli (沒有硝煙的戰場)》之銘言：
: (若是和其他不同軟體互動之問題 請記得一併填寫)
: 您所使用的軟體為:
: 版本:2007
: 問題:
: 現在正在整理一批上萬筆相當混雜的資料，使用200版7內建的"移除重複"指令
: 可以順利移除單一欄內的重複值，不過當選擇複數欄再執行"移除重複"指令，
: 就會發生某些欄仍然會有重複值的情況(規律不太確定，似乎跟第一欄有關)
: 例如：各欄位的資料完全不同，僅以數字簡述(A的1不等於B的1)
: A B C D E F A B C D E F
: 1 1 2 4 3 1 1 1 2 4 3 1
: 1 2 2 7 5 2 逐欄執行 2 2 4 7 5 2
: 1 2 4 7 3 5 --------> 4 4 5 2 1 5
: 2 4 5 7 1 5 3 6
: 2 4 5 4 3 6 3
: 4 3 5 2 3 3
: |全
: |選
: |執
: |行
: V
: A B C D E F
: 1 1 2 4 3 1
: 2 2 4 7 5 2
: 4 2 5 7 3 5
: 4 5 7 1 5
: 3 5 2 3 6
: 3
: 想請問是否有辦法以巨集執行VBA，讓他以欄為單位，自動刪除完該欄重複資料後，
: 跳至下一欄執行重複動作，直到沒有下一欄為止?
: 感謝
______________________VBA for Office 2007 only____________________
Sub test()
end_column = WorksheetFunction.CountA(Range("1:1"))
For i = 1 To end_column
Range(Cells(1, i), Cells(148576, i)).RemoveDuplicates Columns:=1, Header:=xlNo
Next i
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.230.197.101
推
02/28 19:05, , 1F
02/28 19:05, 1F
討論串 (同標題文章)