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

[µo°Ý] vlookup¤@¦¸¥þ³¡¦C¦L

[µo°Ý] vlookup¤@¦¸¥þ³¡¦C¦L

¥Ø«e¦³¤@­Ó¤H­û¸ê®Æ®w¡A¥t¤@­Óªí®æ¬°­Ó¤H¤À°tªí¡I
§Ú¤w¸g¥ÎVLOOKUP³v¤@¥s¥X¤@­Ó¤Hªº¤À°t¤ñ¨Ò¡I
¦ý¬O¦C¦L®É§Ú·Q­n¤@¦¸´N¥i¥H¦C¦L¥þ³¡©Ò¦³¤H¡A¦Ó¤£¬O¤@µ§¤@µ§¥s¥X¨Ó¦L¡A¤]¤£·Q­«½Æªí®æ¦C¦L¡I
¤£ª¾¹D¦³¨S¦³¨ä¥Lªº¿ìªk©O¡H¡]¦]¬°­ì©lÀɸê®Æ«Ü¦h¡A¤@µ§¤@µ§¥s¹ê¦b¤£¬O¿ìªk¡^

¦^´_ 1# energy318122
³Ì²³æªº¤èªk´N¬O·s¼W¤@­Ó "¦C¦L°Ï" ¤u§@ªí³æ,
µM«á§â·Q¦C¦Lªº¸ê®Æ¥þ³¡³£§Ë¤W¥h,
±µµÛ¥u­n¤U¦C¦L«ü¥O´N¦nÅo.

­Y©È¼ÈÀx¦sªÅ¶¡¦C¦L§¹´N§â¥¦§R±¼,
¬Æ¦Ü¬O¥t¥~«Ø¤@­Ó Excel ÀÉ®×¥h§ì¨º­ÓÀɮתº¸ê®Æ¥X¨Ó¦LÀ³¸Ó¤]¤£¿ù.

TOP

¦^´_ 1# energy318122
"¦ý¬O¦C¦L®É§Ú·Q­n¤@¦¸´N¥i¥H¦C¦L¥þ³¡©Ò¦³¤H¡A¦Ó¤£¬O¤@µ§¤@µ§¥s¥X¨Ó¦L¡A¤]¤£·Q­«½Æªí®æ¦C¦L¡I"
¦Ó¤£¬O¤â°Ê¤@µ§¤@µ§¥s¥X¨Ó¦L  ¹ï¶Ü?   ­nªþÀɤW¨Ó»¡²M·¡

TOP

´N¹³ªþ¥ó¨º¼Ë

¤u§@ªí2¤w¸g³]©w¦nvlookup³s¨ì¤u§@ªí1
¦pªG¤u§@ªí1¦³200¦hµ§¸ê®Æ~
³Ì«á§e²{ªº¬O¤u§@ªí2ªº®æ¦¡¡A´N¬O¤@±i¥u¦L¤@­Ó¤H
§Ú·Q°Ýªº¬O~¦pªG§Ú­n¤@¦¸¦Û°Ê±q²Ä¤@µ§¦C¦L¨ì³Ì«á¤@µ§~­n«ç»ò°µ??

·s¼W¸ê®Æ§¨.rar (3.37 KB)

TOP

¦^´_ 4# energy318122
  1. Sub Ex()
  2.     Dim R As Range
  3.     With Sheets("¤u§@ªí2")
  4.         For Each R In Sheets("¤u§@ªí1").Range("A2:E10").Rows
  5.             .Range("A2:E2") = R.Value
  6.             .PrintOut
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ trainee ©ó 2011-12-19 12:24 ½s¿è

GBKEE¤j¤j
·s¤B¾Ç·|¤F¡A¥ý¦æÁ¹L¡I
½Ð°Ý¡A
­Y¤@­¶»Ý¦C¦L¤Q­Ó°O¿ý¡A¤À¤GÄ椭¦C¡A
¥i¦p¦ó§@ªk¡H
·Ð½Ð½ç±Ð¡I

TOP

¦^´_ 6# trainee
­Y¤@­¶»Ý¦C¦L¤Q­Ó°O¿ý¡A¤À¤GÄ椭¦C ªþ¤W½d¨Ò¬Ý¬Ý!

TOP

¦^´_ 7# GBKEE

¥ý¦æ¦A¦¸Á¹L¡I
²{ªþ¤WÀɮסA­Y¦³·M¬N¤§³B¡A¸U±æ¥]®e¡I¡I

¤@¦¸¦C¦L.rar (3.64 KB)

TOP

¦^´_ 8# trainee
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range, i, ii
  3.     Set Rng = Sheets("Print Sheet").Range("b1, d1, b6, d6, B11, D11")
  4.     With Sheets("Date Sheet")
  5.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row Step 6
  6.             ii = 0: Rng.EntireColumn = ""
  7.             For Each E In Rng
  8.                 E = .Cells(i + ii, "A")
  9.                 E.Offset(2) = .Cells(i + ii, "B")
  10.                 E.Offset(4) = .Cells(i + ii, "C")
  11.                 ii = ii + 1
  12.             Next
  13.              With Rng.Parent
  14.                 .PageSetup.FitToPagesWide = 1
  15.                 .PageSetup.FitToPagesTall = 1
  16.                 .PrintOut
  17.             End With
  18.         Next
  19.     End With
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE


·PÁ¤j¤jªº¦^ÂФνç±Ð¡I:) :)

¨ä¹ê§Ú»Ýªº¸ê®Æ¹L¦Êµ§¡A
§Ú·|¹Á¸Õ°Ñ¸Ô¤Î¾Ç²ß¤j¤jªº¤èªk¡A
§Æ±æ¥i¥H¦Û¦æ¸Ñ¨M°ÝÃD¡I

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD