ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ·j´M¥N¸¹«á¡A´M§ä¹ïÀ³¦C¼ÆªºÀx¦s®æ

¦^´_ 19# abc9gad2016


    Sheets("¦¨«~").[L2].Resize(1, 200) = ""  --> ²M°£¤W¤@¦¸¬d¸ß¸ê®Æ

For J = 10 To UBound(Arr, 2)
-->¦]¬°·j´M½d³ò¬°J64:BR64
³]©w½d³òArr = Range([¤u§@ªí1!BR64], [¤u§@ªí1!A65536].End(3))
UBound(Arr, 2) Arr³Ì«á¤@Äæ BR

TOP

¦^´_  abc9gad2016


    Sheets("¦¨«~").[L2].Resize(1, 200) = ""  --> ²M°£¤W¤@¦¸¬d¸ß¸ê®Æ

For  ...
samwang µoªí©ó 2021-1-26 17:39



   ©ú¥Õ¤F¡A·PÁÂS¤j

TOP

¥»©«³Ì«á¥Ñ 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

(¿é¤J½s¸¹12057) googleºô§}:https://hcm19522.blogspot.com/
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD