麻辣家族討論版版 » Excel程式區 » (已解決)清除格式

返回列表下一主題上一主題發帖

(已解決)清除格式

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-6-22 14:44 | 只看該作者

(已解決)清除格式

本帖最後由 hugh0620 於 2011-6-22 16:05 編輯

Dear 大大
我有一個資料是從系統轉出來的如附檔

清儲格式.rar (4.69 KB)
它的格式無法把它清除~ 變成一般的空白儲存格
請大大指教一下

樓主熱帖

收藏

學習才能提升自己

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

11^#

發表於 2011-6-22 17:08 | 只看該作者

要怎得知 f11 和 ctrl 的 code
f11 和 ctrl 跟本不是字符哪來的code?
必須是能寫入工作表的實質的東西

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 2011-6-22 16:55 | 只看該作者

這個很簡單，先用len函數得知字符個數
別分別用code函數求其值，此例得13 與10
Char(10) =vblf
Char(13) ...
oobird 發表於 2011-6-22 16:10

版大
延伸一個問題
要怎得知 f11 和 ctrl 的 code
及該怎應用??

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

9^#

發表於 2011-6-22 16:49 | 只看該作者

回復 8# oobird

試得結果~ 真的是這樣~ 又多學會一招~
非常感謝大大~

學習才能提升自己

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2011-6-22 16:10 | 只看該作者

這個很簡單，先用len函數得知字符個數
別分別用code函數求其值，此例得13 與10
Char(10) =vblf
Char(13) =vbcr
Char(10)+Chr(13) =vbcrlf

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

7^#

發表於 2011-6-22 16:04 | 只看該作者

回復 6# oobird

感謝大大~ vbCrLf 是我要的東西
因為我不知道A2儲存格內資料是什麼東東~
所以無法用判斷式來處理~ 現在可以了~

非常謝謝大大~

學習才能提升自己

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-6-22 15:28 | 只看該作者

也許你要的是
[a2].Replace vbCrLf, ""

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2011-6-22 15:26 | 只看該作者

回復 4# oobird

算沒資料

學習才能提升自己

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-6-22 15:23 | 只看該作者

附件中a2有兩個不可見字符
要算有資料還是沒資料？

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

發表於 2011-6-22 15:07 | 只看該作者

回復 2# oobird

大大~ 很抱歉~ 我沒有說清楚問題~
需要利用判斷的方式~
如果有資料~ 就保留該儲存格的資料
如果是空白的~ 清除開儲存格的格式~

學習才能提升自己

靜思自在 : 我們要做好社會的環保，也要做好內心的環保。

返回列表下一主題上一主題