[VBA ]跨工作表查詢

看板Visual_Basic作者 (阿助)時間8年前 (2016/03/07 14:28), 8年前編輯推噓1(1019)
留言20則, 2人參與, 最新討論串1/1
請問一下各位,我現在想把第一個工作表cells(i,3)的序號在第二個工作表 第四欄做查詢,如果第二個工作表第四欄的序號跟第一個工作表第三欄的序號相同, 則把第一個工作表cells(i,3)~cells(i,13)複製貼到第二個工作表對應的欄位中。 但卻出現需要物件的錯誤訊息,請大家幫忙看一下 謝謝 Sub cusip() Dim i As Integer Dim cn As Integer Dim rng As Range Sheets("sheet1").Select For i = 2 To 842 Set aa = sheet2.Cells.Find(what:=sheet1.Cells(i, 3), LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:=False).Activate Next If aa = Cells(i, 3).Value Then Let cn = rng.Find("aa").Column Range(Cells(i, 3), Cells(i, 13)).Select Selection.Copy Sheets("sheet2").Select Range(Cells(cn, 4), Cells(cn + 4, 4)).Select Selection.Paste Else End If End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 163.22.18.105 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1457332088.A.5B4.html ※ 編輯: kk04014 (163.22.18.105), 03/07/2016 14:29:39 ※ 編輯: kk04014 (163.22.18.105), 03/07/2016 14:33:38

03/07 16:57, , 1F
原po是需要這樣?
03/07 16:57, 1F

03/07 16:58, , 2F
如果是就用迴圈+if
03/07 16:58, 2F

03/07 18:33, , 3F
不是耶!第三欄和第四欄的值是位於不同列
03/07 18:33, 3F

03/07 18:45, , 4F

03/07 18:50, , 5F
那麼第三欄的值是否都是唯一且不重複呢?
03/07 18:50, 5F

03/07 20:58, , 6F
是的
03/07 20:58, 6F

03/07 21:24, , 7F
即是這樣的效果?
03/07 21:24, 7F

03/07 21:25, , 8F
03/07 21:25, 8F

03/07 22:28, , 9F
出現錯誤訊息!!
03/07 22:28, 9F

03/07 22:59, , 10F
請在Copy那裡加底線,即是 Copy _
03/07 22:59, 10F

03/07 23:07, , 11F
同樣是destination那行語法錯誤
03/07 23:07, 11F

03/07 23:42, , 12F
可以請問DESSTINATION那行 E&application.Match(Worksheets("sheet1").Range("C" & i)的意思嗎? 因為我現在雖然能跑了,但是這個程式幾乎沒效,根本沒有貼過去 ※ 編輯: kk04014 (163.22.18.73), 03/07/2016 23:47:01

03/07 23:43, , 13F
測試下原PO的語法發現,在Cells(i,3),Cells(i,13)
03/07 23:43, 13F

03/07 23:45, , 14F
這段會產生錯誤,因此改用Range來判斷
03/07 23:45, 14F

03/07 23:49, , 15F
那段Copy語法是將前面那部份的儲存格貼到目標儲存格
03/07 23:49, 15F

03/07 23:54, , 16F
糟糕貼錯張圖....
03/07 23:54, 16F

03/08 00:01, , 17F
03/08 00:01, 17F

03/08 00:04, , 18F
引號之間要留一個空白,另外下方Sheet2要小寫
03/08 00:04, 18F

03/08 00:05, , 19F
Range("C" & i & "M" & i)
03/08 00:05, 19F

03/08 00:16, , 20F
只有一兩個有成功貼過去,其他都沒有耶
03/08 00:16, 20F
文章代碼(AID): #1MtHzuMq (Visual_Basic)
文章代碼(AID): #1MtHzuMq (Visual_Basic)