[VBA ]跨工作表查詢
請問一下各位,我現在想把第一個工作表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
03/07 16:57, 1F
→
03/07 16:58, , 2F
03/07 16:58, 2F
→
03/07 18:33, , 3F
03/07 18:33, 3F
→
03/07 18:45, , 4F
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
03/07 22:59, 10F
→
03/07 23:07, , 11F
03/07 23:07, 11F
→
03/07 23:42, , 12F
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
03/07 23:43, 13F
→
03/07 23:45, , 14F
03/07 23:45, 14F
→
03/07 23:49, , 15F
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
03/08 00:04, 18F
→
03/08 00:05, , 19F
03/08 00:05, 19F
→
03/08 00:16, , 20F
03/08 00:16, 20F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章