maiko

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

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

請各位賜教，謝謝！

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2015-4-22 07:13 | 只看該作者

回復 7# maiko

PKKO大上傳的檔案和程式碼，可以達成你的問題，也可以正常執行，甚至沒有出現你PO出來的錯誤，何不把你的檔案上傳上來讓大家幫你檢視呢？

TOP

maiko

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

7^#

發表於 2015-4-22 01:46 | 只看該作者

回復 4# stillfish00

就是把A欄上的Member名稱：
B
A
B
B
C
D
E
A
B
E
D
G
A
B
B
F
做一個下拉選單，而且這選單是要不重複、由小到大排序的。

可能用資料驗證大家會不懂，其實就是下拉選單。

TOP

maiko

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

6^#

發表於 2015-4-22 01:43 | 只看該作者

回復 5# PKKO

程式總是到 .Apply 這一步就出現 1004 錯誤：

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

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

複製代碼

PKKO

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

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

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

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

TOP

maiko

中學生 Rank: 2

帖子: 96
主題: 29
精華: 0
積分: 129
點名: 0
作業系統: win
軟體版本: 7
閱讀權限: 20
註冊時間: 2011-3-8
最後登錄: 2024-8-14

3^#

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

回復 maiko

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

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

而且，不是資料驗證。

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

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

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

TOP