- 帖子
- 6
- 主題
- 2
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office2013
- 閱讀權限
- 10
- 註冊時間
- 2016-4-12
- 最後登錄
- 2016-12-23
|
excel vba 查找
(工作表1) (工作表2)
2001 2002 2003 2004 2005
A 2 4 1 0 12 D 2002 8
B 3 5 0 0 7 F 2003 9
C 7 0 4 2 5 G 2001
D 0 8 9 7 2
E 7 10 11 5 8
F 6 8 9 10 0
請問我從工作表1的總檔中，查找工作表2的代號及相同年分，如果都符合的話，則把工作表1中符合的值，貼到工作表2中相對應的儲存格中
但是目前我的程式跑不動，因此希望各位高手可以幫忙看看
Sub ro()
Dim ii, kk As Integer
Dim jj As Long
Dim AA, TT As Object
Set AA = Worksheets("工作表1")
Set TT = .Worksheets("工作表2")
For jj = 3 To 22355
For ii = 2 To 1068
For kk = 3 To 40
Set cusip = AA.Cells(jj, 2).Find(What:=TT.Cells(ii, 6), LookIn:=xlFormulas) '從工作表1查詢和樣本相同cusip'
If Not cusip Is Nothing Then
Set tdate = AA.Cells(1, kk).Find(What:=TT.Cells(ii, 2), LookIn:=xlFormulas) '尋找相同年分'
If Not tdate Is Nothing Then
AA.Cells(jj, kk).Copy Destination:=TT.Cells(ii, 7)
End If
Else
End If
Next kk
Next ii
Next jj
End Sub |
|
發表於 2016-10-17 10:13
| 
