Excel VBA优化求助：动态识别表格末尾并合并宏操作

核心优化点 #

• 动态获取数据最后一行，彻底摆脱硬编码行号的局限
• 合并两项操作到单个宏，减少执行步骤
• 采用数组批量处理，大幅提升大数据量下的执行效率

优化代码 #

Sub ConvertAndDivide()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    Dim dataArray As Variant
    Dim i As Long, j As Long
    
    ' 指定目标工作表
    Set ws = Sheet1
    
    ' 获取AP列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "AP").End(xlUp).Row
    
    ' 无有效数据时直接退出
    If lastRow < 2 Then Exit Sub
    
    ' 定义动态数据区域
    Set dataRange = ws.Range("AP2:AW" & lastRow)
    
    ' 将区域数据读入数组（内存操作远快于单元格遍历）
    dataArray = dataRange.Value
    
    ' 遍历数组完成格式转换与数值计算
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        For j = LBound(dataArray, 2) To UBound(dataArray, 2)
            ' 仅处理可转换为数值的内容
            If IsNumeric(dataArray(i, j)) Then
                dataArray(i, j) = CDbl(dataArray(i, j)) / 100
            End If
        Next j
    Next i
    
    ' 设置统一的数字格式（可根据需求调整小数位数）
    dataRange.NumberFormat = "0.00"
    
    ' 将处理后的数组写回单元格
    dataRange.Value = dataArray
End Sub

关键说明 #

1. 动态行号获取：ws.Cells(ws.Rows.Count, "AP").End(xlUp).Row 会自动定位AP列最后一个非空单元格的行号，无论数据行数如何变化都能适配。
2. 数组批量处理：把数据读入内存数组后再处理，避免了VBA与Excel单元格的频繁交互，数据量越大，效率提升越明显。
3. 合并操作逻辑：在一次数组遍历中同时完成文本转数字和除以100的操作，减少冗余步骤。
4. 格式控制：统一设置区域的数字格式，确保转换后数值显示符合预期，可根据需求修改"0.00"为其他格式（比如"#,##0"）。

使用方式 #

• 删除原有的Number_Conversion和Divide_By宏，将上述代码粘贴到Excel的VBA模块中。
• 若需保留快捷键，可通过「开发工具」→「宏」→ 选中ConvertAndDivide→「选项」设置快捷键（如原有的Ctrl+N）。

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