±N¤u§@ªí1¡B¤u§@ªí2²Å¦X±ø¥ó¸ê®Æ¥Hfind¾ã¦X¨ì¤u§@ªí3°ÝÃD
- ©«¤l
- 97
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 158
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2010-9-12
- ³Ì«áµn¿ý
- 2019-8-29
|
±N¤u§@ªí1¡B¤u§@ªí2²Å¦X±ø¥ó¸ê®Æ¥Hfind¾ã¦X¨ì¤u§@ªí3°ÝÃD
¦U¦ì¤jô¦n¡G
¦³Ó°ÝÃD½Ð±Ð:
§Ún±N²Å¦X¤u§@ªí3ªí³æ¤º®e¥Ñ¤u§@ªí1¡B¤u§@ªí2±a¤J°ÝÃD¡C
§Ú¥v¥Hfind¥h¼g¦ý¬O¦b¤Á´«¥\¹Lªí®É·|¥X¿ù¡C½Ð±Ð§ÚÀ³¦p¦ó×¥¿¡C
ªþ¤W½d¨Ò- Sub sech()
- Dim i, j As Integer
- Dim Nam As String
- For i = 2 To 6
- Nam = Sheets(3).Cells(i, "a")
- Sheets(2).Select
- Selection.Find(What:=Nam, After:=ActiveCell _
- , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
- SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
- :=False).Activate
- Sheets(3).Cells(i, "b") = ActiveCell.Offset(, 1)
- 'µLªk¤Á´«°ÝÃD
- Sheets(1).Select
- Selection.Find(What:=Nam, After:=ActiveCell _
- , LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
- SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
- :=False).Activate
- Sheets(3).Cells(i, "c") = ActiveCell.Offset(, -1)
- Next i
- End Sub
½Æ»s¥N½X
¬¡¶Ã¯3.rar (12.35 KB)
|
|
lionliu
|
|
|
|
|
- ©«¤l
- 97
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 158
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2010-9-12
- ³Ì«áµn¿ý
- 2019-8-29
|
¦^´_ 2# yen956
ÁÂÁ°աA§Ú¦A¸Õ¤@¤U |
|
lionliu
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¸Õ¸Õ¬Ý
Sub sech()
Dim i As Integer, j As Integer, Rng
Dim Nam As String
For i = 2 To 6
Nam = Sheets(3).Cells(i, "a")
Sheets(2).Select
Set Rng = Range("A:A").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
:=False)
Sheets(3).Cells(i, "b") = Rng.Offset(, 1)
'µLªk¤Á´«°ÝÃD
Sheets(1).Select
Set Rng = Range("B:B").Find(What:=Nam, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=True, MatchByte:=False, SearchFormat _
:=False)
Sheets(3).Cells(i, "c") = Rng.Offset(, -1)
Next i
End Sub |
|
|
|
|
|
|