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

²M°£½d³ò¤ºÀx¦s®æ¤å¦r«e«á¦h¥XªºªÅ®æ

¦^´_ 1# enoch
  1. Sub TEST()
  2.     Dim REF As Object, Row As Integer, Col As Integer
  3.     Set REF = Range("a1")
  4.     For Col = 1 To 5    '³]©wÄæ¼Æ
  5.         For Row = 1 To 10    '³]©w¦æ¼Æ
  6.             REF.Cells(Row, Col) = Trim(REF.Cells(Row, Col))
  7.         Next
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD