請教改良速度方法 - Excel程式區

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

18^# 跳轉到 »

發表於 2012-12-3 13:00 | 只看該作者

回復 15# stillfish00

test1.rar (878.31 KB)
好像有些問題，無法做到

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

17^#

發表於 2012-12-3 12:47 | 只看該作者

回復 15# stillfish00

另一個問題，請問如果要尋找絕對值呢，應該如何寫？
例如：
KEN
KENNY
KEN CHEN
CHAN KEN

如果只要顯示ken的資料，那麼應該怎樣寫？

TOP

stillfish00

大學生 Rank: 4

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

16^#

發表於 2012-12-3 12:16 | 只看該作者

回復 14# 198188
找空白儲存格 , 輸入
= 或 ="="

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

15^#

發表於 2012-12-3 11:56 | 只看該作者

本帖最後由 198188 於 2012-12-3 11:58 編輯

回復 13# stillfish00

姓名性別電話國藉車牌    年齡    職業
John 男 11111111 China 有 Clerk
Peter 男 22222222 Germany 有 30 A/C
David 男 33333333 USA 無 15 ADMIN
Tina 女 44444444 China 有 25 Clerk
June 女 55555555 ITALY 無 35 Clerk

進階篩選準則: 姓名性別電話國藉車牌    年齡    職業
                                    *n*                                                                      =" "
複製欄位:                      Y Y Y N Y N Y

沒有反應，沒有資料出來

TOP

stillfish00

大學生 Rank: 4

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

14^#

發表於 2012-12-3 11:31 | 只看該作者

回復 12# 198188
條件設定都跟進階篩選準則一樣
你可以參考  http://office.microsoft.com/zh-tw/excel-help/HP010073942.aspx
如輸入
=" "       篩選該欄位為單個空白字元
="* *" 篩選該欄位包含空白字元
=" *"    篩選該欄位以空白字元開頭

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

13^#

發表於 2012-12-3 09:33 | 只看該作者

回復 11# stillfish00

請問如果尋找條件是空格，應該如何表示？

TOP

stillfish00

大學生 Rank: 4

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

12^#

發表於 2012-12-2 14:49 | 只看該作者

回復 10# 198188
參考看看 , 利用進階篩選做的

test.zip (19.54 KB)

Sub myFilter()
Dim rngSrc As Range, rngCopyField As Range, rngFilter As Range
Dim nextRow As Long, endRow As Long
Set rngSrc = Sheets("資料庫").[A1:G7]
Set rngCopyField = Sheets("條件區").[B8:H8]
Set rngFilter = Sheets("條件區").[B1].Resize(Sheets("條件區").[B1].CurrentRegion.Rows.Count, 8)
nextRow = Sheets("整理區").UsedRange.Rows.Count + 1
rngSrc.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
rngFilter, CopyToRange:=Sheets("整理區").Range("A" & nextRow)
endRow = Sheets("整理區").UsedRange.Rows.Count
For i = 1 To rngCopyField.Count
If rngCopyField(i) = "N" Then
Sheets("整理區").Range(nextRow & ":" & endRow).Columns(i).Clear
End If
Next
Sheets("整理區").Range("A" & nextRow).Resize(1, 7).Delete Shift:=xlUp 'delete header
Set rngSrc = Nothing
Set rngCopyField = Nothing
Set rngFilter = Nothing
End Sub