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

µ{¦¡­×§ï

¸ê®Æ¸m´«

¦U¦ì¹F¤H¤S¦³°ÝÃD¤F,·Ð½ÐÀ°¦£¤@¤U
°ÝÃD¦p¤U
¤u§@ªí1
        A         
1 1-36
2 2-37
3 3-39
¤u§@ªí2
      A
1 1-39
2 3-40

·Q§â¤u§@ªí1ªºA3 3-39´«¦¨¤u§@ªí¤¤ªºA2ªº3-40
µ{¦¡¦p¤U:
N = Worksheets("¤u§@ªí3").Cells(Rows.Count, "a").End(xlUp).Row
k4 = Worksheets("¤u§@ªí3").Cells(N, 1)
P = Worksheets("¤u§@ªí1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("¤u§@ªí1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
K5=K4
¦ý¬O«ç¼Ëªº¨Sªk¦¨¥\.½Ð°Ý¿ù¦b­þ¸Ì
ÁÂÁÂ!!

TOP

µ{¦¡¦p¤U:
N = Worksheets("¤u§@ªí2").Cells(Rows.Count, "a").End(xlUp).Row
§ó¥¿­ì¨Óªºµ{¦¡
k4 = Worksheets("¤u§@ªí2").Cells(N, 1)
P = Worksheets("¤u§@ªí1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("¤u§@ªí1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
K5=K4
¦ý¬O«ç¼Ëªº¨Sªk¦¨¥\.½Ð°Ý¿ù¦b­þ¸Ì
ÁÂÁÂ!!

TOP

¦^´_ 2# modelcrazyer
set ³]©wÅÜ¼Æ ¬°ª«¥ó
  1. set  k5 = Worksheets("¤u§@ªí1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
  2. K5.value=K4
½Æ»s¥N½X

TOP

¦hÁ±zªº¦^ÂÐ,
¦ý¬O¦n¹³¥ÎxlPart¨Sªk¤ñ¹ï­C!!

TOP

¦^´_ 4# modelcrazyer
1# »¡:
¤u§@ªí1ªºA3 3-39´«¦¨¤u§@ªí¤¤ªºA2ªº3-40
µ{¦¡¦p¤U:
N = Worksheets("¤u§@ªí3").Cells(Rows.Count, "a").End(xlUp).Row
k4 = Worksheets("¤u§@ªí3").Cells(N, 1)
P = Worksheets("¤u§@ªí1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("¤u§@ªí1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)   '§Aªº¥Î·N¦ó¦b

TOP

ÁÂÁÂ.¥»¨Ó¬O·Q¥Î¼Ò½k¤ñ¹ïªº¤è¦¡¨Ó§ä¨ì¬Û¦ü­È,µM«á¨ú¥Nªº!!
¤£¹L,¦ý¬Oµo²{¦n¹³¤£¦æ³o¼Ë!!

TOP

¦^´_ 6# modelcrazyer
¥H§A1#ªº¸ê®Æ¬Ý¨Ó¡A2­Ó¤u§@ªí¸ê®Æ¨Ã¨S¦³¥i¥ÎªºXlPart¯à¤ñ¹ï¨ìªº¸ê®Æ
°ÝÃD½Ð²M·¡±Ô­z§Aªº»Ý¨D¡A±q¤@­Ó°õ¦æ¿ù»~ªº¥N½X¤¤¬OµLªk±oª¾§A·Q­nªº¥\¯à
½Ð¤W¶ÇÀɮרû¡©ú§A·Q­nªºµ²ªG
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

µ{¦¡­×§ï

ªþ¥ó¬O§Ú¼gªºµ{¦¡
¥D­n·Q¹F¦¨¥H¤Uªº¥\¯à
1-10
1-11
1-12
1-13
·í§Ú§R°£1-11®É1-12©M1-13·|¦Û°ÊÅܦ¨1-11©M1-12
¦ý¬O·í§Ú§R°£1-10«oµLªk¶¶§Q°õ¦æÅý«á­±ªº¶µ¦¸»¼¸É
·Q½Ð°Ý­n«ç»ò§ï??

[attach]12843[/attach]

°ÝÃD.rar (66.28 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-22 07:10 ½s¿è

¦^´_ 8# modelcrazyer
1#¸ê®Æ¸m´«  ¦pHsieh¶Wª©»¡:  °ÝÃD½Ð²M·¡±Ô­z§Aªº»Ý¨D
©Ò¥HªþÀÉ: ¤u§@ªí1  ¥u¦³§A¤F¸Ñ,½Ð°µ­Ó½d¦C§a!
    ¥BªþÀÉ ¤£¨£­ì¸Ô²Ó»ù¥Øªí
  1. Sub test2()
  2. Dim l, i, k, r, S As Integer
  3. '¥Ñ¸Ô²Ó»ù¥ØªíÂà¹L¨Ó¶µ¦¸³Ì«á¤@¶µ
  4. l = Worksheets("­ì¸Ô²Ó»ù¥Øªí").Cells(Rows.Count, "b").End(xlUp).Row   
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD