GBKEE

¦^´_ 29# guaga
sheet ­qÁÊ°O¿ý,¨ºÃä¦h¥[¤@Äæ:  ³oarr¬O§A¨ÌSheets("­qÁÊ°O¿ý")Äæ¦ì¤º®e©Ò«ü©wªº¤¸¯À
§A¬O­n­×¥¿ ³oarr, °t¦X³o [¦h¥[¤@Äæ]
­ì¥»³oarr = Array(.[L4], .[N4], .[L7].Text, .Cells(i, "A"), .Cells(i, "C"), .Cells(i, "E"), .Cells(i, "H"), .Cells(i, "I"), "=RC[-1]*RC[-2]", .Cells(i, "J"), .Cells(i, "L"))
Sheets("­qÁÊ°O¿ý").Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)+1) = arr

¥i¬OÁÙ¬O±qAÄæ¶}©l¶ñ? : Cells([A65536].End(3).Row + 1, 1) => Cells(¦C¼Æ, Äæ¼Æ):   ¦C¼Æ->¼Æ¦r ,Äæ¼Æ->¼Æ¦r,¦r¦ê-> 1="A"Äæ ,2="B"Äæ ,27="AA"Äæ

GBKEE

¦^´_ 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

GBKEE

¦^´_ 33# guaga
½ÐªþÀɬݬÝ