µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ·j´M¥N¸¹«á¡A´M§ä¹ïÀ³¦C¼ÆªºÀx¦s®æ
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
·j´M¥N¸¹«á¡A´M§ä¹ïÀ³¦C¼ÆªºÀx¦s®æ
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ª÷¿ú
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1427 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
1
#
¸õÂà¨ì
»
µoªí©ó 2023-11-24 15:26
|
Åã¥Ü¥þ³¡©«¤l
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-11-24 15:37 ½s¿è
¦^´_
17#
ã´£³¡ªL
ÁÂÁ½׾Â,ÁÂÁ«e½ú«ü¾É
«á¾ÇÂǦ¹©«¾Ç²ßª«¥ó(Àx¦s®æ)ªº¨Ï¥Î,¾Ç²ß¨ì«Ü¦hª¾ÃÑ,¥H¤U¬O¤ß±oµù¸Ñ,½Ð«e½ú¦A«ü¾É
Option Explicit
Sub FindData()
Dim xR As Range, xA As Range, xF As Range, j%
'¡ô«Å§iÅܼÆ:(xR,xA,xF)¬OÀx¦s®æÅܼÆ,j¬Oµu¾ã¼Æ
Set xR = [´M§ä!a2]
'¡ô¥OxRÅܼƬO"´M§ä"ªíªº[A2]Àx¦s®æ
xR(1, 2).Resize(1, 200) = ""
'¡ô¥OxRÅܼƥk1®æÀx¦s®æÂX®i¦V¥k200®æ½d³òÀx¦s®æȬOªÅ¦r¤¸
Set xA = Sheets("¤u§@ªí1").UsedRange
'¡ô¥OxAÅܼƬO "¤u§@ªí1"ªí¦³¨Ï¥ÎÀx¦s®æÂX®i³Ì¤p¤è¥¿½d³òÀx¦s®æ
Set xF = xA.Columns(1).Find(xR, Lookat:=xlWhole)
'¡ô¥OxFÅܼƬO xAÅܼƲÄ1Äæ¥H Range.Find ¤èªk¦^¶Çª«¥ó(Àx¦s®æ),
'¥ç¥HxRÅܼƴM§ä xAÅܼƲÄ1Äæ¸ÌÈ¥þ¦PªºÀx¦s®æ,¦^¶Çµ¹xFÅܼÆ
If xR = "" Or xF Is Nothing Then Exit Sub
'¡ô¦pªGxRÅܼÆȬOªÅ¦r¤¸ ©ÎxF¬OµLª«¥ó? True´Nµ²§ôµ{¦¡°õ¦æ
For j = 2 To xA.Columns.Count
'¡ô³]¶¶°j°é!j±q2 ¨ì xAÅܼÆÄæ¼Æ
If xF(1, j) <> "" Then Set xR = xR(1, 2): xR = xA(2, j)
'¡ô¦pªGxFÅܼƲÄ1¦CjÅܼÆÄæÀx¦s®æȤ£¬OªÅªº?
'True´N¥ORÅܼƬO¥k1®æÀx¦s®æ,¥OxRÅܼƬOxAÅܼƲÄ2¦CjÅܼÆÄæÀx¦s®æÈ
Next j
End Sub
¾ÇµL¤î¹Ò!
©Î³\¯u¬Û¥u¦³¤@Ó,¦ý¬O§ä´M¯u¬Ûªº¤èªk¤£¥u¤@ºØ
ÁÂÁ«e½ú±`¥Î¤£¦Pªº¤èªk«ü¾É«á¾Ç
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
ª¾ÃÑn¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·