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

vbaµ{¦¡¦A¶]®É¥X²{°õ¦æ¶¥¬q¿ù»~1004À³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-2-14 09:30 ½s¿è

¦^´_ 1# chairles59
°²³]¡G B2 = ªÑ»ù¡F B3 (§t) ¥H¤U§¡¬°ªÅ¥Õ
  1.    h = Range("b3").End(xlDown).Row
  2.    ' h = 1048576

  3.    h = Range("b2").End(xlDown).Row
  4.    ' h = 1048576
½Æ»s¥N½X
©Ò¥H
  1.    Cells(h + 1, "b") = a(i- 2)
  2.    Cells(h + 1, "e") = b(i- 2)
½Æ»s¥N½X
¬°
  1.    Cells(1048576 + 1, "b") = a(i- 2)
  2.    Cells(1048576 + 1, "e") = b(i- 2)
½Æ»s¥N½X
·íµM·|¥X²{°õ¦æ¶¥¬q¿ù»~1004À³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~
¶·§ï¦¨¡G
  1.    h = Range("B" & Rows.Count).End(xlUp).Row
  2.    ' h = 2
½Æ»s¥N½X
©ÎªÌ¬O
  1. h = Range("b1").End(xlDown).Row
  2. ' h = 2
½Æ»s¥N½X
¦p¦¹
  1.    Cells(2 + 1, "b") = a(i- 2)
  2.    Cells(2 + 1, "e") = b(i- 2)
½Æ»s¥N½X

TOP

¦^´_ 1# chairles59
¤Sµo²{§A­ì¥ý©w¸q¬°
  1.    For i = 0 To V - 1
  2.        a(i) = Cells(i * 8 + 5, 2)      '  ¦¨¥æ
  3.        b(i) = Cells(i * 8 + 9, 2)      '  Á`¶q
  4.    Next
½Æ»s¥N½X
¥Ø«e§A±N¥¦§ï¦¨
  1.    For i = 0 To V - 1
  2.        a(i) = Cells(i * 10 + 8, 2)
  3.        b(i) = Cells(i * 10 + 13, 2)
  4.    Next
½Æ»s¥N½X
§Ú¤£¤Ó©ú¥Õ§Aªº¥Î·N¡C
±µ¤U¨Ó§A¦Û¦æ¨Ó­×¥¿§a¡C

TOP

¦^´_ 1# chairles59
¥»¬ÛÃöÃþ¦ü¡u´£°Ý¡v¥H«á½Ð¦b¡yExcelµ{¦¡°Ï¡z©Î¬O¡yExcel¤@¯ë°Ï¡z¤¤´£¥Xµoªí¡A
¦Ó«D¦b¦¹  ¡yºÞ²z¤½§i¡z°Ï¸Ì´£°Ý¡A§_«h¬OµL¤H¯d·N¦ÓÀ°§AÄÀºÃªº¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD