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

¦bVBA¤¤§Q¥ÎVLOOKUPªº°ÝÃD

¦bVBA¤¤§Q¥ÎVLOOKUPªº°ÝÃD

¥»©«³Ì«á¥Ñ tc1701 ©ó 2017-2-21 21:08 ½s¿è

¤j®a¦n,¤p§Ì¦³¤@­ÓÃö©óVLOOKUP¦bVBA¤Wªº°ÝÃD¡C

§Ú§âSHEETSªº¼Æ¥Ø³]¬°ÅܼÆ
©Ò¥H§Ú¦bVBA¤W¤£À´«ç¼Ë³]©wVLOOKUP¤¤ªºSHEET¦WºÙ
  1. A = Worksheets.COUNT
  2. For AZ = 2 To A
  3. Sheets(AZ).Activate
  4. Range("C2").Select
  5. ActiveCell.FormulaR1C1 = _  "=IFERROR(VLOOKUP(RC[-1],'06-2'!C[-2]:C[24],24,FALSE),0)"

  6. Next
½Æ»s¥N½X
Ãþ¦ü³o¼Ë¡A­«ÂI·Q°Ý'06-2' ªºSHEET ¬OAZ ÅܼÆ
½Ð°ÝÀ³¸Ó«ç¼Ë¼g?

¸U¤À·P¿E!!

¥»©«³Ì«á¥Ñ tc1701 ©ó 2017-2-21 22:36 ½s¿è

¤£¯à½s¿è¤F...

A = Worksheets.COUNT
For AZ = 2 To A
Sheets(AZ).Activate
X = Sheets(AZ).Name
    Sheets("A").Select
    Range("C2").Select
   
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1]," & X & "!C[-2]:C[24],24,FALSE)"
Next

¤£ª¾¹D¬°¤°»ò¤£¯à,¦¡¤¤Åã¥Ü¬O6-'02' , ¦ý¥¿½TªºÀ³¸Ó¬O'6-02' ,
¦]¬°§ÚªºSHEET ¦WºÙ¬O6-02...7-02,,,8-02µ¥µ¥

TOP

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'" & X & "'!C[-2]:C[24],24,FALSE)"  

§t¦³[¼Æ¦r.ªÅ®æ©Î²Å¸¹]¤u§@ªí¦WºÙ­n¥Î[³æ¤Þ¸¹]¥]ÂÐ!!!

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD