標題: [發問] Trim問題請教 [打印本頁]

---

作者: rouber590324    時間: 2016-9-23 14:57     標題: Trim問題請教

DEAR ALL 大大
1.Trim會將前後空白取消.遇 無段落之  "    DDD"無問題 - 可去除前後空白="DDD"
1.1 但遇到單一儲存格有2列以上 "    D"    時   無取去除第2列之前後空白並整合至第一列不斷行.
                                           "   DD   "
2.煩不吝賜教   THANKS

Sub AAAAAAAAAAAAA()
  Sheet28.Range("B26") = Trim(Sheet28.Range("B25"))
End Sub

---

作者: 准提部林    時間: 2016-9-23 17:30

試試：
Sheet28.Range("B26") = Application.Trim(Sheet28.Range("B25"))

Trim("???") 只能去除[前後]空白
Application.Trim 可以去除多餘空白, 只留一個

---

作者: Kubi    時間: 2016-9-23 20:47

回復 1# rouber590324
底下是不是你要的結果？
    d = Sheet28.Range("B25").Value
    Sheet28.Range("B26").Value = Trim(Split(d, Chr(10))(0)) & Trim(Split(d, Chr(10))(1))

---

作者: rouber590324    時間: 2016-9-26 11:34

DEAR  SIR
100%符合需求  THANKS*10000

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)