vbaµ{¦¡¦A¶]®É¥X²{°õ¦æ¶¥¬q¿ù»~1004À³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-2-14 09:30 ½s¿è
¦^´_ 1# chairles59
°²³]¡G B2 = ªÑ»ù¡F B3 (§t) ¥H¤U§¡¬°ªÅ¥Õ- h = Range("b3").End(xlDown).Row
- ' h = 1048576
- h = Range("b2").End(xlDown).Row
- ' h = 1048576
½Æ»s¥N½X ©Ò¥H- Cells(h + 1, "b") = a(i- 2)
- Cells(h + 1, "e") = b(i- 2)
½Æ»s¥N½X ¬°- Cells(1048576 + 1, "b") = a(i- 2)
- Cells(1048576 + 1, "e") = b(i- 2)
½Æ»s¥N½X ·íµM·|¥X²{°õ¦æ¶¥¬q¿ù»~1004À³¥Îµ{¦¡©Îª«¥ó©w¸q¤W¿ù»~
¶·§ï¦¨¡G- h = Range("B" & Rows.Count).End(xlUp).Row
- ' h = 2
½Æ»s¥N½X ©ÎªÌ¬O- h = Range("b1").End(xlDown).Row
- ' h = 2
½Æ»s¥N½X ¦p¦¹- Cells(2 + 1, "b") = a(i- 2)
- Cells(2 + 1, "e") = b(i- 2)
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 1# chairles59
¤Sµo²{§Aì¥ý©w¸q¬°- For i = 0 To V - 1
- a(i) = Cells(i * 8 + 5, 2) ' ¦¨¥æ
- b(i) = Cells(i * 8 + 9, 2) ' Á`¶q
- Next
½Æ»s¥N½X ¥Ø«e§A±N¥¦§ï¦¨- For i = 0 To V - 1
- a(i) = Cells(i * 10 + 8, 2)
- b(i) = Cells(i * 10 + 13, 2)
- Next
½Æ»s¥N½X §Ú¤£¤Ó©ú¥Õ§Aªº¥Î·N¡C
±µ¤U¨Ó§A¦Û¦æ¨Ó×¥¿§a¡C |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 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 |
|
|
|
|
|
|