返回列表 上一主題 發帖

[發問] Trim問題請教

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
羅

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-20 
2#
發表於 2016-9-23 17:30 | 只看該作者
試試：
Sheet28.Range("B26") = Application.Trim(Sheet28.Range("B25"))

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

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
3#
發表於 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))

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2016-9-26 11:34 | 只看該作者
DEAR  SIR
100%符合需求  THANKS*10000
羅

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題