- 帖子
- 94
- 主題
- 10
- 精華
- 0
- 積分
- 114
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-10-17
- 最後登錄
- 2014-1-3
|
以下是我寫的收尋並列表程式
但希望能夠改變成 M3輸入"張" 就列出有"張"這個的字的
目前是輸入完整全名才會列表....希望各位大大幫忙!^^ 感恩不盡!
Sub 統一查詢功能()
'關閉顯示
Application.ScreenUpdating = False
Set Name = Sheets("查詢處理區").Range("M3")
Sheets("統一").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
'如果有一樣 就向左並複製 轉值貼上至查詢區
If Sheets("統一").Cells(i, 9) = Name Then
Sheets("統一").Select
Cells(i, 9).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("查詢處理區").Select
c = [A65536].End(xlUp).Row
Cells(c + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
Sheets("查詢處理區").Select
Application.ScreenUpdating = True '開啟顯示
MsgBox "統一查詢完成"
End Sub |
|
發表於 2012-11-19 12:17
| 
