嘿，针对你提到的两个Excel批量操作需求，我分「手动操作（适合小批量数据）」和「VBA脚本（适合大量行数据）」两种场景给你详细讲清楚：

手动操作步骤 #

• 按下Ctrl+F打开查找对话框，输入你要定位的指定值，点击「查找全部」按钮
• 在弹出的查找结果列表里，按下Ctrl+A选中所有匹配的单元格
• 直接在公式栏输入你需要的公式（比如=A1*2，如果是相对引用，记得按下Ctrl+Enter批量应用，这样每个单元格的公式会自动调整引用位置）
• 特殊情况：如果要在原有内容基础上添加公式（比如原有值是x，要改成=x+10），可以用替换功能：
  1. 打开「查找和替换」对话框（Ctrl+H）
  2. 查找内容填*（通配符，匹配任意内容），替换为=*+10
  3. 勾选「使用通配符」，点击「全部替换」

VBA脚本（适合海量数据） #

按Alt+F11打开VBA编辑器，插入一个新模块，粘贴以下代码，修改searchValue和targetFormula为你的实际需求后运行宏：

Sub AddFormulaToSpecificValue()
    Dim searchValue As String
    Dim targetFormula As String
    Dim cell As Range
    
    ' 替换为你要查找的指定值
    searchValue = "你的目标值"
    ' 替换为你需要添加的公式（用R1C1样式更适合批量应用）
    targetFormula = "=RC*2" ' 示例：当前单元格值乘以2
    
    ' 遍历工作表中所有已使用的单元格
    For Each cell In ActiveSheet.UsedRange
        If cell.Value = searchValue Then
            cell.FormulaR1C1 = targetFormula
        End If
    Next cell
End Sub

手动操作步骤 #

• 按下Ctrl+F打开查找对话框，输入date，点击「查找全部」，再按Ctrl+A选中所有匹配单元格
• 直接应用样式：
  • 若要自定义格式：右键选中的单元格→「设置单元格格式」，调整字体、填充色、边框或日期格式等
  • 若要套用预设样式：点击「开始」选项卡→「样式」→选择你需要的单元格样式即可

VBA脚本（适合海量数据） #

方式1：应用自定义样式（需提前创建好样式）

先手动创建自定义样式：「开始」→「样式」→「单元格样式」→「新建单元格样式」，命名为DateStyle并设置好格式，然后用以下脚本：

Sub FormatDateCellsWithStyle()
    Dim searchText As String
    Dim cell As Range
    Dim targetStyle As Style
    
    searchText = "date"
    ' 替换为你创建的自定义样式名
    Set targetStyle = ActiveWorkbook.Styles("DateStyle")
    
    For Each cell In ActiveSheet.UsedRange
        ' 模糊匹配（包含date的单元格），精确匹配则改为 cell.Value = searchText
        If InStr(cell.Value, searchText) > 0 Then
            targetStyle.ApplyTo cell
        End If
    Next cell
End Sub

方式2：直接设置格式（无需提前创建样式）

如果不想创建样式，可直接在脚本里定义格式：

Sub FormatDateCellsDirectly()
    Dim searchText As String
    Dim cell As Range
    
    searchText = "date"
    
    For Each cell In ActiveSheet.UsedRange
        If InStr(cell.Value, searchText) > 0 Then
            ' 设置填充色为黄色
            cell.Interior.Color = RGB(255, 255, 0)
            ' 设置字体加粗
            cell.Font.Bold = True
            ' 可添加更多格式设置，比如边框、字体颜色等
        End If
    Next cell
End Sub

内容的提问来源于stack exchange，提问作者venki pashkanti