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

[µo°Ý] ¤S¾¤VLOOKUP ¶}ÃD

¦^´_ 7# yowhome

ª½±µ¼g¤J¤½¦¡­pºâ
  1. Sub ex()
  2. With Sheet2
  3.   With .Range(.[A2], .[D2].End(xlDown).Offset(, -3))
  4.   .FormulaR1C1 = "=VLOOKUP(RC[3],Sheet1!R2C1:R65536C3,2,0)"  '¼g¤J¤½¦¡
  5.   .Value = .Value  '¼g¤J­È
  6.    End With
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD