[VBA ]跨工作表查询
楼主: kk04014 (阿助) 2016-03-07 14:28:06
请问一下各位，我现在想把第一个工作表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
第四栏做查询，如果第二个工作表第四栏的序号跟第一个工作表第三栏的序号相同，
则把第一个工作表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
作者: MashiroX421 (三峰真白) 2016-03-07 16:57:00
" target="_blank" rel="nofollow"> 原po是需要这样?
" target="_blank" rel="nofollow"> 如果是就用循环+if楼主: kk04014 (阿助) 2016-03-07 18:33:00
不是耶!第三栏和第四栏的值是位于不同列" target="_blank" rel="nofollow">
作者: MashiroX421 (三峰真白) 2016-03-07 18:50:00
那么第三栏的值是否都是唯一且不重复呢?
楼主: kk04014 (阿助) 2016-03-07 20:58:00
是的
作者: MashiroX421 (三峰真白) 2016-03-07 21:24:00
" target="_blank" rel="nofollow"> 即是这样的效果?
" target="_blank" rel="nofollow"> 试试看楼主: kk04014 (阿助) 2016-03-07 22:28:00
" target="_blank" rel="nofollow"> 出现错误讯息!!
作者: MashiroX421 (三峰真白) 2016-03-07 22:59:00
请在Copy那里加底线，即是 Copy _
楼主: kk04014 (阿助) 2016-03-07 23:07:00
同样是destination那行语法错误
作者: MashiroX421 (三峰真白) 2016-03-07 23:42:00
" target="_blank" rel="nofollow">测试下原PO的语法发现，在Cells(i,3),Cells(i,13)这段会产生错误，因此改用Range来判断那段Copy语法是将前面那部份的储存格贴到目标储存格
" target="_blank" rel="nofollow"> 糟糕贴错张图....楼主: kk04014 (阿助) 2016-03-08 00:01:00
作者: MashiroX421 (三峰真白) 2016-03-08 00:04:00
引号之间要留一个空白，另外下方Sheet2要小写Range("C" & i & "M" & i)
楼主: kk04014 (阿助) 2016-03-08 00:16:00
只有一两个有成功贴过去，其他都没有耶