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

¦X¨Ö¦h­Ó¤u§@ªí¤º¸ê®Æ©ó·s¼W1¤u§@ªí

¦X¨Ö¦h­Ó¤u§@ªí¤º¸ê®Æ©ó·s¼W1¤u§@ªí

»Ý­n¦X¨Ö¦h­Ó¤u§@ªí¤º¸ê®Æ©ó·s¼W1¤u§@ªí
¥B¨Ì¤u§@ªí¼ÐÅҲΤ@§e²{©ó·s¼Wªº¤u§@ªí¤¤ªº¬Y¤@Äæ
¥Ø«e¥HVBA¶×¤J¦h¤å¦r¸ê®Æ¦ý¤ÀÄݤ£¦PÀÉ®×
¦X¨Ö¼Æ¾Ú-1¡B¦X¨Ö¼Æ¾Ú-2¡B¦X¨Ö¼Æ¾Ú-3
¦ý§Æ±æ¶×¤J¸ê®Æ§e²{¦p ªþ¥ó¤¤ªº ¦X¨Ö¼Æ¾Ú .xls
¶×¤J¸ê®Æ³B²z¤è­±ÁÙ OK¥B¸ê®Æ¦h¡A´N¨Ì»Ý¨D²¤Æ¦¨ªþ¥ó¤¤ªº¸ê®Æ
¤£ª¾¬O§_¯à¥HVBA ¤è¦¡´î¤Ö¥Ø«e¤â°Ê¤è¦¡³B²z§@·~¡A
·Ð½Ð¬O§_°ª¤â¥i¨ó§U³B²z¸Ñ¨M¡A·P®¦¡I¡I

¦X¨Ö¼Æ¾Ú.rar (9.58 KB)

·PÁÂluhproªº¨ó§U¡A´ú¸Õ²Å¦X»Ý¨D
¥¿¦b¬ã¨s±zªº»yªkÀ³¥Î©ó»Ý¨D¤¤¡A
¦ý¥H§Úªº¥\¤O»P®É¶¡¡AÁٻݭn¤@¨Ç®É¶¡¡A­Y¦³°ÝÃD¦A¦V±z°Q±Ð
¬Û«H¤@©w¯à¥\¯à¤j¼W¡A·P®¦

TOP

®tÂI³£§Ñ°O¦^¨Ó¬Ý¬Ý¦Û¤vªº°ÝÃD¡A·Q¤£¨ìÁÙ¦³¨ä¥L¤è¦¡
¬ã¨s¤¤¡AGBKEEª©¤j«á­±ÁÙ¤S¥[µù¸Ñ¡A¹ï©ó¾Ç²ß¤¤ªº§Ú¤F¸ÑÀ³¸Ó·|§Ö¨Ç
©ñ°²®É¬ã¨s¡A¦³°ÝÃD¦A°Q±Ð¡A·P®¦

TOP

¾Ç²ß¤¤¡A¹ï©ó»yªkÀ´±o¤£¦h¡A·Ð½Ð  GBKEEª©¤j«ü¾É¤@¤U
iRowEnd = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
ªº·N¸q¬°¦ó?
Ãö©ó  Ar = Sheets(i).Range("A2:B" & iRowEnd).Value ¤¤ªº Range ("A2:B" & iRowEnd)ªº·N«ä¬O?
¤@¤U¤l­n±q°ò¥»VBA»{ª¾¸õ¨ì¬Ý±oÀ´ª©¤jªº»yªk¡A«ç»ò"»¡©ú"»P¤u¨ã®Ñ³£¥¢®ÄÅo¡I¡I

TOP

Dim Ar()
GBKEE µoªí©ó 2011-7-6 08:52

Ar() ¬°«Å§i¬°°}¦CªºÁY¼g¶Ü¡H

Resize(UBound(Ar), 2)
GBKEE µoªí©ó 2011-7-6 08:52

¾Ç²ß ResizeÀ³¥Î¡A¸`¿ý »¡©úÀɶ¶¹D¶K¤W¨Ñ°Ñ¦Ò
¦ý¨ä¤¤ UBound(Ar)ªº§t¸q»P¥Îªk¬°¦ó?
  1. Resize ÄÝ©Ê
  2. ½Ð°Ñ¾\½Ð°Ñ¾\½Ð°Ñ¾\½Ð°Ñ¾\½Õ¾ã«ü©wªº½d³ò¡C¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí½Õ¾ã«áªº½d³ò¡C

  3. expression.Resize(RowSize, ColumnSize)
  4. expression     ¥²¿ï¡C¸Ó¹Bºâ¦¡¶Ç¦^­n½Õ¾ã¤j¤pªº Range ª«¥ó¡C

  5. RowSize     ¿ï¾Ü©Êªº Variant¡C·s½d³ò¤¤©Ò¥]§tªº¦C¼Æ¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡A½d³ò¤¤ªº¦C¼Æ«O«ù¤£ÅÜ¡C

  6. ColumnSize     ¿ï¾Ü©Êªº Variant¡C·s½d³ò¤¤©Ò¥]§tªºÄæ¼Æ¡C¦pªG¬Ù²¤¦¹¤Þ¼Æ¡A½d³ò¤¤ªºÄæ¼Æ«O«ù¤£ÅÜ¡C

  7. ½d¨Ò
  8. ¦¹½d¨Ò½Õ¾ã Sheet1 ¤¤¿ï¾Ü½d³òªº¤j¤p¡A¨Ï¤§¼W¥[¤@¦C©M¤@Äæ¡C

  9. Worksheets("Sheet1").Activate
  10. numRows = Selection.Rows.Count
  11. numColumns = Selection.Columns.Count
  12. Selection.Resize(numRows + 1, numColumns + 1).Select
  13.                
  14. ¦¹½d¨Ò°²³]¦b Sheet1 ¤¤¦³¤@­Ó¥]§t¼ÐÃD¦Cªºªí®æ¡C¦¹½d¨Ò¿ï©w¸Óªí®æ¡A¦ý¤£¿ï©w¼ÐÃD¦C¡C°õ¦æ¦¹½d¨Ò¤§«e¡A²{¥ÎÀx¦s®æ¥²¶·³B©ó¸Óªí®æ¤¤¡C

  15. Set tbl = ActiveCell.CurrentRegion
  16. tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
  17.     tbl.Columns.Count).Select
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD