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

[µo°Ý] ½Ð±ÐÃö©óVlookup¦A µ{¦¡EXCEL VBA¤Wªº¨Ï¥Î,

[µo°Ý] ½Ð±ÐÃö©óVlookup¦A µ{¦¡EXCEL VBA¤Wªº¨Ï¥Î,

Hi

·Q½Ð±ÐÃö©óVlookup¦A µ{¦¡EXCEL VBA¤Wªº¨Ï¥Î,
¥Ø«eªº°µªk¬O·Q§â¤u§@ªíªí¤@ªº
¢Ï¢±¨Ï¥Î¢ä¢ô¢÷¢÷¢ó¢ý¢ø§ä¢°¢°¢´¤u§@ªíªº²Ä¥|Äæ¦ì
¢Ï¢±¨Ï¥Î¢ä¢ô¢÷¢÷¢ó¢ý¢ø§ä¢±¢±¢¯¤u§@ªíªº²Ä¥|Äæ¦ì

¤À§O¬°³o¨â¶µ,«e½ú¥i§_«üÂI°g¬z¡@

§Ú¬d¸ß¹L¥H¤Uºô§},¦ý¥L¥u¦³»¡©ú¬°¦P¤@¤u§@ªíªº¸ê®Æ,ÁٽЫe½ú±Ð¾Ç¡@ÁÂÁÂ
http://www.exceltrick.com/formulas_macros/vlookup-in-vba/

Vlookup.rar (8.14 KB)

ªþ¥ó1

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-10-3 19:46 ½s¿è

¦^´_ 1# s13983037


¨ä¥Îªk©MExcel¨ç¼Æ¥Îªk¤@¼Ë¥u¬O§â¦ì¸m½d³òªº¼gªk§ï¦¨VBA®æ¦¡¼gªk
  1. Public Sub ex()
  2. Dim Rng As Range
  3. For Each Rng In Sheets(1).Range("a2:a11")
  4.     Rng.Offset(, 1) = Application.VLookup(Rng, Sheets("115").Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row), 4, 0)
  5.     Rng.Offset(, 2) = Application.VLookup(Rng, Sheets("220").Range("a1:d" & Cells(Rows.Count, 1).End(xlUp).Row), 4, 0)
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187
ÁÂÁ«e½ú
§Ú¸Õ¸Õ¬Ý!!!!

TOP

¦^´_ 2# lpk187


    Hi «e½ú
§Ú¥D­n·Q§âÁcÂøªº¸ê®Æ ±q¨ä¥L¤u§@ªí¼´¶i§Úªº¸ê®Æªí¹ïÀ³ªº¤u§@ªí¤¤,¨Ï¥ÎVlookup¨Ã§ä¥XÄæ¦ìB1+C1 ,¨Ã¥B±Æ§Ç³Ì¤j­È¦A¤W(¥ÑZ->A)
³Ì«áPrint¥X¨Ó
###############################################
§Ú·Q¸ß°Ý¥t¤@­Ó°ÝÃD  ±q²Ä¤@¦æ¶]¨ì³Ì¤U¤@ÄæCells®Éµ²§ô¨ìKÄ檺¹Bºâ«á,·|²£¥Í¤@­Ó¸ê®Æ«¬ºA¤£²Å,¤£ª¾«e½ú¬O§_¦³¸Ñ
   Cells(1, 1).Select
   For K = 1 To ThisWorkbook.Sheets(1).UsedRange.Rows.Count
    Cells(K, 4) = Cells(K, 3) + Cells(K, 2)
    Next
###############################################
ÁÙ·Q¥t¥~¦A¸ß°Ý
¦pªG»¡For Each Rng In Sheets(1).Range("a2:a5000")
¥L³o­ÓRange("A2:A5000") ³o­Ó¬O§_¥i¥H§ï¦¨Äæ¦ì¤¤¦³Äæ¶ñ¤J¸ê®Æ°µ¹Bºâ§Y¥i
###############################################
³Ì«á§Ú¦³ªþ¤Wªþ¥ó!  ¦pªG¥i¥Hªº¸Ü³Â·Ð§A¬d¬Ý¤@¤U ·PÁÂ!

ºÃ°Ý.rar (31.03 KB)

ªþ¥ó

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD