遍历单元格并根据情况分别处理

yaozong

jacksc 发表于 2018-10-10 17:30
谢谢老师！
其实这个测试数据是 先将Excel 设置为“显示公式”状态，然后复制到 记事本，把所有 “=”号 ...

Sub zzz()
Dim r As Range
For Each r In [a1].CurrentRegion
  If r.HasFormula Then
    r = Mid(r.Formula, 2)
  Else
    r = ""
  End If
Next
End Sub

jacksc

yaozong 发表于 2018-10-10 20:53
Sub zzz()
Dim r As Range
For Each r In [a1].CurrentRegion

老师：你好！
[a1].CurrentRegion 有可能不会将所有有值单元格包括进来，不管该单元格是公式还是其他，都得遍历一遍才行。

jacksc

lsc900707 发表于 2018-10-10 20:51
代码贴了两次都要审核，先自行测试附件中的代码：

老师：测试到时可以，但速度太慢了。我借鉴 yaozong 老师代码，用以下代码速度稍有提高，但感觉还是有点慢，不知还有更快的方法没。
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.HasFormula Then
            r = Replace(r.Formula, "=", "")
        Else
            r = ""
        End If
    Next
    Application.ScreenUpdating = True

jacksc

yaozong 发表于 2018-10-10 20:53
Sub zzz()
Dim r As Range
For Each r In [a1].CurrentRegion

老师：根据你的代码，我借鉴 lsc900707 的部份代码，基本达到目的，不是感觉速度还是有点慢，不知还有更快的方法没？
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If r.HasFormula Then
            r = Replace(r.Formula, "=", "")
        Else
            r = ""
        End If
    Next
    Application.ScreenUpdating = True

yaozong

jacksc 发表于 2018-10-10 21:55
老师：根据你的代码，我借鉴 lsc900707 的部份代码，基本达到目的，不是感觉速度还是有点慢，不知还有更 ...

Sub yy()
  Dim rng As Range
  Set rng = ActiveSheet.UsedRange
  rng.SpecialCells(2).Replace "*", ""
  rng.SpecialCells(3).Replace "=", ""
End Sub