帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-10-6 18:52 | 只看該作者

[發問] 條件式刪除cell內容，再麻煩大家多指教

Dear 各位先進:

   想請益一個問題，如附檔

情況：cell裡有複選作答 (number,number, number,.....)，想把這種cell清空，變成空值
  目前想到的是用select ，找出非數字的cell(因為複選就不是數字格式了)，再用clean 清除
或者是用公式find找出 cell裡是 (number,number, number,.........)，

總之，想不到如何做，怎麼做，所以來請益了，一來慢慢手動刪會花很多時間，二來非常想知道如何刪的技巧

想知道如果用公式，如何寫?
            如果用vba語法，，如何寫?

再麻煩各位大大予以協助與指教

感謝

刪除複選作答.rar (7.69 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-10-7 13:55 | 只看該作者

回復 1# jj369963
一般區發問，用基本操作法解決

學海無涯_不恥下問

TOP

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2021-5-21

3^#

發表於 2013-10-7 22:48 | 只看該作者

回復 2# Hsieh

Dear版大：

謝謝您，又學到很神奇的一招了

發帖時使是有想到用取代，但是不知道原來是用*萬用字元(您之前有教過我的說)

再次謝謝您的回覆

簡單的方法也是奇妙的大發現呢

TOP

HCG10G8bear

小學生 Rank: 1

帖子: 15
主題: 1
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2013-10-30
最後登錄: 2018-11-6

4^#

發表於 2013-11-1 09:22 | 只看該作者

回復 2# Hsieh

版主大您好

看了您的示範受益良多

使用 *,* 方式，取代填滿黃色內有,的格子

想請教一個問題

取代的應用

可否將填滿黃色格子內的文字轉成數值

還是一定要用VB程式解決

謝謝您

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2013-11-1 10:58 | 只看該作者

回復 4# HCG10G8bear

你的問題或許是要以格式搜尋，與樓主問題應該不同，建議將檔案壓縮上傳

學海無涯_不恥下問

TOP

genes

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

6^#

發表於 2013-11-2 02:12 | 只看該作者

回復 4# HCG10G8bear

如果格是黃色,格的數值是1

Sub Macro1()
With ActiveSheet
If Selection.Interior.ColorIndex = 6 Then
Selection.Value = 1
End If
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-11-2 08:14 | 只看該作者

回復 6# genes

Sub Ex()
With ActiveSheet
Application.FindFormat.Interior.ColorIndex = 6
' Application.ReplaceFormat.Interior.ColorIndex = 3
.Cells.Replace What:="*", Replacement:="1", LookAt:=xlWhole, SearchFormat:=True', ReplaceFormat:=True
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ML089