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

[µo°Ý] ¦p¦ó±N"±ÄÁʳæ"¤º®e¨Ì§Ç¼g¤J¥t¤@­Ósheet?

¦^´_ 30# GBKEE

·PÁª©¥D,§Ú§ï¦¨
Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 2).Resize(1, UBound(arr) + 1) = arr
¤£¹L³o­Ó¦³®É­Ô³£·|¸õ¨ì A1048576ªºÀx¦s®æ¥h
¦³¤°»ò¿ìªk¸Ñ¨M?

¥¼©R¦W.JPG (54.43 KB)

¥¼©R¦W.JPG

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-11-28 16:13 ½s¿è

¦^´_ 31# guaga
¥i¯à¬OSheets("­qÁÊ°O¿ý")AÄ椤ªºÀx¦s®æ¦³§¹¥þ¬OªÅ¥Õ¦r¤¸ªº¦r¦ê(¤£·|Åã¥Ü,©Ò¥H¬Ý¤£¨£)
°õ¦æ¤@¦¸³oµ{§Ç,¥i®ø°£ªÅ¥Õªº¦r¤¸

LTrim¡BRTrim »P Trim ¨ç¼Æ
¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim) ©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range
  4.     With Sheets("­qÁÊ°O¿ý")
  5.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants, 3)
  6.             E = Trim(E)
  7.         Next
  8.         MsgBox Range("A65536").End(xlUp).Address
  9.    End With
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 32# GBKEE
¦]¬°A:A  ¦³±a¤½¦¡ ©Ò¥H¤£¯à¥Î³o­Ó¤èªk§â¤½¦¡²M±¼
©Ò¥H·|¶Ã¶]ªº­ì¦] ¬O¦]¬°A:A ¦³±a¤½¦¡ªºÃö«Y¶Ü

TOP

¦^´_ 33# guaga
½ÐªþÀɬݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD