首先得说，你的原有代码只能固定处理K列，还依赖了大量Select操作——这种写法不仅效率低，还容易因为工作表选中区域的意外变化出问题。咱们可以把它改成支持任意列（不管连续还是非连续）的版本，同时优化掉没必要的Select，让代码更稳定好用。

核心思路 #

针对每一列重复原有逻辑，但动态适配列位置：

• 让用户自由选择要处理的目标列（连续/非连续都支持）
• 对每一列执行：插入辅助列→写入除以100的公式→粘贴值回原列→删除辅助列
• 全程直接操作单元格对象，避免用Select触发不必要的界面交互

修改后的通用代码 #

Sub DivideMultipleColumnsBy100()
    Dim targetCols As Range
    Dim col As Range
    Dim lastRow As Long
    Dim tempCol As Range
    
    ' 弹出输入框让用户选择要处理的列（可多选，连续/非连续都行）
    On Error Resume Next
    Set targetCols = Application.InputBox("请选择要处理的列（可多选）", Type:=8)
    On Error GoTo 0
    
    ' 如果用户取消选择，直接退出程序
    If targetCols Is Nothing Then Exit Sub
    
    ' 关闭屏幕刷新，提升运行速度并减少界面闪烁
    Application.ScreenUpdating = False
    
    ' 遍历每一个选中的列
    For Each col In targetCols.Columns
        ' 找到当前列的最后一行数据（和原代码保持一致，从第15行开始处理）
        lastRow = col.Cells(Rows.Count, 1).End(xlUp).Row
        If lastRow < 15 Then lastRow = 15 ' 若数据少于15行，至少处理到第15行
        
        ' 在当前列左侧插入辅助列
        col.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Set tempCol = col.Offset(0, -1) ' 定位刚插入的辅助列
        
        ' 在辅助列第15行写入公式，引用原列（现在是辅助列右侧的列）
        tempCol.Cells(15, 1).FormulaR1C1 = "=RC[1]/100"
        ' 自动填充公式到最后一行
        tempCol.Cells(15, 1).AutoFill Destination:=tempCol.Range(Cells(15, 1), Cells(lastRow, 1))
        
        ' 将辅助列的计算值粘贴回原列
        tempCol.Range(Cells(15, 1), Cells(lastRow, 1)).Copy
        col.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        
        ' 删除辅助列
        tempCol.Delete Shift:=xlToLeft
    Next col
    
    ' 恢复屏幕刷新，清除剪贴板内容
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    
    MsgBox "处理完成！"
End Sub

代码亮点 #

• 灵活选列：运行宏后用鼠标就能选择任意列，不管是连续的K:N，还是非连续的K、M、O都能处理
• 稳定高效：去掉Select操作，直接操作单元格对象，不会因界面选中区域变化出错；关闭屏幕刷新后运行速度明显提升
• 兼容边界：如果目标列数据不足15行，会默认处理到第15行，和你原代码的逻辑保持一致

另一种更简洁的方案（无需辅助列） #

其实还有更轻量的写法，不用插入删除列，直接修改原单元格的值，代码更简洁，适合日常数据量的处理：

Sub DivideBy100WithoutHelperColumn()
    Dim targetCols As Range
    Dim cell As Range
    Dim cellValue As Variant
    
    On Error Resume Next
    Set targetCols = Application.InputBox("请选择要处理的列（可多选）", Type:=8)
    On Error GoTo 0
    
    If targetCols Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    
    ' 只遍历选中区域里的数值型单元格，跳过空单元格和文本
    For Each cell In targetCols.SpecialCells(xlCellTypeConstants, xlNumbers)
        cellValue = cell.Value
        If IsNumeric(cellValue) Then
            cell.Value = cellValue / 100
        End If
    Next cell
    
    Application.ScreenUpdating = True
    MsgBox "处理完成！"
End Sub

这个版本直接修改原数据，没有额外的列操作，代码更短，运行也更轻便。

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