1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-21 16:26 | 只看該作者

[發問] 通過資料驗證不重複值和排序?

A欄上有一組Member名稱，如何在G2上用資料驗證不重複值和排序？

Member
B
A
B
B
C
D
E
A
B
E
D
G
A
B
B
F

請各位賜教，謝謝！

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-4-21 19:24 | 只看該作者

回復 1# maiko

試試看

Sub test()
'
Columns("A:A").Copy
Columns("G:G").PasteSpecial Paste:=xlPasteValues '貼上值
Application.CutCopyMode = False
'移除重複
ActiveSheet.Range("G1:G" & [g65536].End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
'排序
ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Add Key:=Range("G1:G" & [g65536].End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("工作表1").Sort
.SetRange Range("G1:G" & [g65536].End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

複製代碼

PKKO

3^#

發表於 2015-4-21 19:31 | 只看該作者

回復 maiko

試試看
PKKO 發表於 2015-4-21 19:24

程式到 .Apply 的時候出現錯誤，如圖：

而且，不是資料驗證。

4^#

發表於 2015-4-21 19:54 | 只看該作者

回復 1# maiko
別說賜教了，連問題都沒看懂。。。
你不把問題再說清楚點嗎?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2015-4-21 19:56 | 只看該作者

回復 3# maiko
我原本提供的程式碼為,複製A欄到G欄=>移除重複(保留表頭)=>排序(英文方式)
不懂你所謂的資料驗證,若你指的是下拉選單
試試看,檔案可以正常運作

test.rar (16.45 KB)

Sub test()
'
Columns("A:A").Copy
Columns("G:G").PasteSpecial Paste:=xlPasteValues '貼上值
Application.CutCopyMode = False
'移除重複
ActiveSheet.Range("G1:G" & [g65536].End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
'排序
ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Add Key:=Range("G1:G" & [g65536].End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("工作表1").Sort
.SetRange Range("G1:G" & [g65536].End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = 2 To [g65536].End(xlUp).Row
name1 = name1 & Cells(i, 7) & ","
Next
name2 = Mid(name1, 1, Len(name1) - 1)
With Range("G2:G" & [a65536].End(xlUp).Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=name2
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("G2:G" & [g65536].End(xlUp).Row).ClearContents
End Sub