如何将录制的Excel VBA宏应用到整个单元格区域？

原代码依赖ActiveCell和Select操作，只能处理单个单元格，且操作冗余。下面是优化后的代码，可直接处理你选中的任意单元格区域：

Sub IDNEW()
' IDNEW Macro
' Keyboard Shortcut: Ctrl+Shift+I
    Dim cell As Range
    ' 遍历选中区域内的每一个单元格
    For Each cell In Selection
        ' 直接生成目标值：前缀"*****"拼接原单元格内容的最后4位
        cell.Value = "*****" & Right(cell.Value, 4)
    Next cell
End Sub

关键改进说明 #

• 移除了低效且易出错的Select/Activate操作，直接操作单元格对象
• 遍历选中区域的所有单元格，实现批量处理
• 省去原代码中辅助列的繁琐步骤，直接计算并赋值，提升运行效率

如果你的业务逻辑必须保留原代码中使用偏移列作为过渡的方式，也可以用这个版本：

Sub IDNEW()
' IDNEW Macro
' Keyboard Shortcut: Ctrl+Shift+I
    Dim cell As Range
    Dim tempCell As Range
    
    For Each cell In Selection
        Set tempCell = cell.Offset(0, 10)
        ' 在偏移列写入公式
        tempCell.FormulaR1C1 = "=""*****""&RIGHT(RC[-10],4)"
        ' 粘贴值到原单元格
        cell.Value = tempCell.Value
        ' 清空偏移列内容
        tempCell.ClearContents
    Next cell
End Sub

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