需求：编写VBA宏替换指定列特定行开头的###为=

以下是符合你需求的VBA宏代码，专门处理B、F、J列第16行及以后的单元格，将开头的###替换为=，同时不影响其他列和前15行内容：

Sub ReplaceHashWithEqual()
    ' 定义需要处理的列（B=2, F=6, J=10）
    Dim targetCols As Variant
    targetCols = Array(2, 6, 10)
    
    Dim col As Variant
    Dim lastRow As Long
    Dim rowNum As Long
    
    ' 循环处理每个目标列
    For Each col In targetCols
        ' 获取当前列的最后一行（避免处理空行）
        lastRow = Cells(Rows.Count, col).End(xlUp).Row
        
        ' 从第16行开始循环到最后一行
        For rowNum = 16 To lastRow
            ' 替换开头的###为=（目标单元格均以###开头，直接截取第4位及以后内容拼接=）
            Cells(rowNum, col).Value = "=" & Mid(Cells(rowNum, col).Value, 4)
        Next rowNum
    Next col
End Sub

代码说明 #

• targetCols = Array(2, 6, 10)：指定要处理的列号，对应Excel里的B、F、J列
• lastRow = Cells(Rows.Count, col).End(xlUp).Row：自动获取当前列的最后一个非空行，减少无效循环
• Cells(rowNum, col).Value = "=" & Mid(Cells(rowNum, col).Value, 4)：利用目标单元格的固定开头特征，直接截取第4位及以后的原有内容，拼接=完成替换

使用方法 #

1. 打开需要处理的Excel文件
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧的工作簿名称，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口中
5. 按下F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择ReplaceHashWithEqual执行

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