用零替换列单元格中的公式值和空白

Question

我想要一个 vba 代码，它会提示输入列名，在提供列名后，它将替换列中具有任何公式或空白为零的所有单元格，并保留其余单元格列原样。

Answer 1

这是最新版本。

1. 它只在FirstRow和LastRow之间运行
   
2. 如果公式包含DATE() 或TODAY()，则不归零。
   

代码：

    Sub PatchColumn_3()
        Dim FirstRow As String, LastRow As String
        Dim rng As Range, Cell As Range, v As String
        Dim s As String, FormulaCells As Range, BlankCells As Range
        
        FirstRow = "2"
        LastRow = "636"
        
        s = Application.InputBox(prompt:="enter column ID:", Type:=2)
        Set rng = Range(s & FirstRow & ":" & s & LastRow)
        
        On Error Resume Next
            Set FormulaCells = rng.Cells.SpecialCells(xlCellTypeFormulas)
            Set BlankCells = rng.Cells.SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        
        If Not FormulaCells Is Nothing Then
            For Each Cell In FormulaCells
                v = Cell.Formula
                If InStr(v, "TODAY") = 0 And InStr(v, "DATE") = 0 Then Cell.Value = 0
            Next Cell
        End If
        
        If Not BlankCells Is Nothing Then BlankCells.Value = 0
     End Sub