VBA做篩選

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

2^#

發表於 2013-8-31 13:34 | 顯示全部帖子

回復 2# sunnyso

說錯...
是做排序篩選..因筆數有上千筆...要從表單中抓出重覆

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

3^#

發表於 2013-9-1 13:24 | 顯示全部帖子

謝謝G大出手協助..
B欄姓名1(不用管此欄位值)
比對C欄、E欄
C欄姓名2(重覆)
E欄序號(重覆)

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

4^#

發表於 2013-9-1 16:04 | 顯示全部帖子

回復 10# GBKEE

.Cells(1, .Columns.Count).EntireColumn = ""
Set Rng(3) = Application.Intersect(.Cells, Rng(3).EntireRow) '整合為整列

請問g大版主..上面這二條的意思是什麼..有點看不太懂...

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

5^#

發表於 2013-9-2 22:45 | 顯示全部帖子

G大版主你好..不好意思..另有一個小問題想請教..如圖所示 :

9999999999999999.JPG (77.08 KB)

檢查重覆.rar (18.39 KB)

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

6^#

發表於 2013-9-3 23:15 | 顯示全部帖子

G大版主你好..不好意思在吵你一下..
For i = 1 To 6

22.       With Controls("ComboBox" & i)

23.          If .Value <> "" Then

24.             Rng.AutoFilter Field:=i, Criteria1:=.Value & "*" '

25.          End If

26.       End With
是控制ComboBox" & i (1~6的控制選項)
如果SHEET1欄位值為A~D欄位及F欄位及G欄位..要如何下VBA程式呢??
因FOR 1 TO 6 為連續ComboBox選A~F欄位
請G大版主點一下..小弟不才..謝謝

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

7^#

發表於 2013-9-4 21:21 | 顯示全部帖子

回復 sillykin
試試看
GBKEE 發表於 1/9/2013 15:05

g大版主你好..小弟不才..也謝謝版主耐心的教導
承前題回覆6的公式

01.Option Explicit

02.Sub Ex()

03. Dim Rng(1 To 3) As Range, i As Integer, E As Range

04. With Sheets("Sheet1")       ' "Sheet1" 工作表名稱

05.       .Cells.Interior.ColorIndex = xlNone

06.       Set Rng(1) = .Range("A:F").SpecialCells(xlCellTypeConstants)                            '資料庫

07.       .Range("G:G") = ""

08.       Set Rng(3) = Rng(1).Rows(1)

09.       For i = 3 To 5                                     'C欄、D欄、E欄位做為準則

10.          .Cells(1, .Columns.Count) = Rng(1).Cells(1, i)  '欄位做為準則

11.          Rng(1).Columns(i).AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True    '篩選不重複的資料

12.          Set Rng(2) = .Range(.Cells(2, .Columns.Count), .Cells(2, .Columns.Count).End(xlDown))  '篩選出的資料範圍

  For i = 3 To 5                                     'C欄、D欄、E欄位做為準則
如果更改為C欄、E欄位做為準則 ;D欄不做準則
那做法是不是跟你上一題的方式一樣呢????