- ©«¤l
- 6
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-4-12
- ³Ì«áµn¿ý
- 2016-12-23
|
excel vba ¬d§ä
(¤u§@ªí1) (¤u§@ªí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
½Ð°Ý§Ú±q¤u§@ªí1ªºÁ`Àɤ¤¡A¬d§ä¤u§@ªí2ªº¥N¸¹¤Î¬Û¦P¦~¤À¡A¦pªG³£²Å¦Xªº¸Ü¡A«h§â¤u§@ªí1¤¤²Å¦XªºÈ¡A¶K¨ì¤u§@ªí2¤¤¬Û¹ïÀ³ªºÀx¦s®æ¤¤
¦ý¬O¥Ø«e§Úªºµ{¦¡¶]¤£°Ê¡A¦]¦¹§Æ±æ¦U¦ì°ª¤â¥i¥HÀ°¦£¬Ý¬Ý
Sub ro()
Dim ii, kk As Integer
Dim jj As Long
Dim AA, TT As Object
Set AA = Worksheets("¤u§@ªí1")
Set TT = .Worksheets("¤u§@ªí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) '±q¤u§@ªí1¬d¸ß©M¼Ë¥»¬Û¦Pcusip'
If Not cusip Is Nothing Then
Set tdate = AA.Cells(1, kk).Find(What:=TT.Cells(ii, 2), LookIn:=xlFormulas) '´M§ä¬Û¦P¦~¤À'
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 |
|