[已解决]请帮忙修改代码

zhouyuma

我录制了一个宏，清除数据，我现在想保留有文字的单元格内容，只清除有数字的单元格，被我选中的每个单元格中，只可能是数字，文本，或这空，无数字和文本混合。说明是清除单元格内容，不是删除单元格
Sub Delsum()
    Dim aa As Long, bb As Long
    With ActiveSheet
        aa = .Range("A1").End(4).Row
        bb = .Cells(.Rows.Count, 1).End(3).Row
        Range(Cells(aa, 17), Cells(bb, 26)).Select
        If MsgBox("是否是所选择的范围？否则键盘操作。", vbYesNo, "选择单元格删除提示") = vbNo Then
            Exit Sub
        End If
        Selection.ClearContents
    End With
End Sub
谢谢帮忙

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-23 14:45

zhouyuma 发表于 2014-10-23 13:49
我只是刚学用VBA，用for Each 遍历单元格 ,搞了半天也没搞好，还请大师傅帮忙

供参考

1. Sub b()
   
2. Dim rng As Range
   
3.       For Each rng In Selection
   
4.             If IsNumeric(rng) and rng<>"" Then
   
5.                rng.ClearContents
   
6.            End If
   
7.         Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

这儿有肥猫

保留非文字的单元格，只清除有数字的单元格
这句话是什么意思？？

zhouyuma

这儿有肥猫 发表于 2014-10-23 11:22
保留非文字的单元格，只清除有数字的单元格
这句话是什么意思？？

写错了，保留非数字的单元格内容，数字指1，2，3，-1，-2，0，0.5，-0.5，有文字的单元格内容保留

Excel学徒123

你这个都没判断选择的是是否是数字，那肯定被选择的都会被删除啊 ，建议采用for each...next 循环，判断RANGE是否是ISNUMERIC，如果是TRUE，就删除，这样就把数字的全删除了

qh8600

上传个附件，把要清除的单元格用底纹颜色区分一下

zhouyuma

qh8600 发表于 2014-10-23 12:06
上传个附件，把要清除的单元格用底纹颜色区分一下

我只是刚学用VBA，用for Each 遍历单元格 ,搞了半天也没搞好，还请大师傅帮忙

这儿有肥猫

zhouyuma 发表于 2014-10-23 13:49
我只是刚学用VBA，用for Each 遍历单元格 ,搞了半天也没搞好，还请大师傅帮忙

供参考

1. Sub b()
   
2. Dim rng As Range
   
3.       For Each rng In Selection
   
4.             If IsNumeric(rng) and rng<>"" Then
   
5.                rng.ClearContents
   
6.            End If
   
7.         Next
   
8. End Sub

复制代码

suye1010

1. Sub Delsum()
   
2.      Dim aa As Long, bb As Long
   
3.      With ActiveSheet
   
4.          aa = .Range("A1").End(4).Row
   
5.          bb = .Cells(.Rows.Count, 1).End(3).Row
   
6.          Range(Cells(aa, 17), Cells(bb, 26)).Select
   
7.          If MsgBox("是否是所选择的范围？否则键盘操作。", vbYesNo, "选择单元格删除提示") = vbNo Then
   
8.              Exit Sub
   
9.          End If
   
10.          Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
    
11.      End With
    
12. End Sub

复制代码

zhouyuma

suye1010 发表于 2014-10-23 15:11

谢谢大师傅，你这个也很好，把我的代码改一句就行了，也是一个最好答案，但我先选了上面的为最佳答案，刷新后才发再下面还有一最好答案，谢谢大家帮忙