- 帖子
- 94
- 主題
- 10
- 精華
- 0
- 積分
- 114
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-10-17
- 最後登錄
- 2014-1-3
|
求救各位大大 迴圈問題(急)
以下是我寫的查詢
簡單來講就是我在指定的地方打入要查詢的資料
他要去姓名區的地方從第二筆開始到此頁最後一筆尋找是否有相同名子
如果有就貼入查詢處理區
沒有就繼續往下尋找
但我以下的程式他會說有NEXT 沒有FOR
但是END IF 根 NEXT 交換 卻不會這樣說 但是 尋找一次就中斷我的IF了
請各位大大幫我解答
感謝您............急
Sub 查詢功能()
Set Name = Sheets("查詢處理區").Range("P1")
Sheets("姓名區").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
Cells(i, 9).Select
If Cells(i, 9) = Name Then
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
Next i
End If
End Sub |
|
發表於 2012-11-16 09:59
| 
