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

jj369963

Dear 各位先進:

     想請益 一個問題，如附檔

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

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

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

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

感謝

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

下載次數: 15

2013-10-6 18:42

Hsieh

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

下載 (221.03 KB)

2013-10-7 13:55

jj369963

回復 2# Hsieh


    Dear版大：

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

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

   再次謝謝您的回覆

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

HCG10G8bear

回復 2# Hsieh

版主大您好

看了您的示範受益良多

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

想請教一個問題

取代的應用

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

還是一定要用VB程式解決

謝謝您

Hsieh

回復 4# HCG10G8bear

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

genes

回復 4# HCG10G8bear

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

1. Sub Macro1()
   
2. With ActiveSheet
   
3. If Selection.Interior.ColorIndex = 6 Then
   
4. Selection.Value = 1
   
5. End If
   
6. End With
   
7. End Sub

複製代碼

GBKEE

回復 6# genes

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

複製代碼

ML089

單選為數字，複選為文字時，清除文字VBA

1. Sub ex()
   
2.     '清除文字
   
3.     Range("B2:I26").SpecialCells(xlCellTypeConstants, 2).ClearContents
   
4. End Sub

複製代碼

ML089

如果是基本操作方式

選擇 B2:I26
CTRL+G - 選 特殊 - 選 常數 - 勾選 文字(其他勾選取消) - 確定 (就可將文字儲存格選取)
按右鍵 - 清除內容