網路城邦
上一篇 回創作列表 下一篇   字體:
[Excel VBA] 這個程式在做啥?
2009/04/17 20:28:56瀏覽3139|回應2|推薦0


Sub DelSpace()
For Each x In Selection.Cells
      srcStr = x.Value
      outStr = ""
            For i = 1 To Len(srcStr)
                    c = Mid(srcStr, i, 1)
                   If c <> " " Then outStr = outStr & c
           Next i
      x.Value = outStr
Next x
End Sub



答案:

把選擇範圍中所有儲存格裡的空白字元刪掉。

( 興趣嗜好電腦3C )
回應 推薦文章 列印 加入我的文摘
上一篇 回創作列表 下一篇

引用
引用網址:https://classic-blog.udn.com/article/trackback.jsp?uid=WayCheng&aid=2859707

 回應文章

【無★言】家喻戶曉的中國人
等級:8
留言加入好友
2019/06/19 08:09
用substitute()會不會比較簡單?
ThisIsTheWay(WayCheng) 於 2019-07-16 21:48 回覆:

是在問讀者看不看得懂程式。都有 caculater 了,為何小學還要教四則計算? 


根本ㄏㄏ
2013/07/10 16:43
你都鎖右鍵了還反白=.=(@)