Excel VBA 如何在公式中使用ROUNDUP(ROW())实现行号除以10000向上取整

原代码问题说明 #

• 条件判断逻辑错误：ActiveCell.Column < 1 永远不会触发，Excel列号最小为1，实际需要判断活动单元格不在第一列，应该写ActiveCell.Column <> 1
• 存在重复插入列的冗余代码：连续两次执行插入列操作，会多插入不必要的空列
• 公式拼接逻辑多余：ROW() 函数不传参数时会自动取公式所在单元格的行号，完全不需要额外定义rowNum变量拼接
• 公式参数分隔符错误：VBA中写入公式使用.Formula属性时，参数分隔符必须使用美式逗号，不能用分号

可直接运行的完整代码 #

Sub 插入行号分组列()
    ' 判断活动单元格是否不在第一列
    If ActiveCell.Column <> 1 Then
        ' 在A列位置插入新列
        Range("A:A").Insert
        ' 读取当前工作表已有数据的最后一行行号，避免整列写入公式卡顿
        Dim lastRow As Long
        lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        ' 给A列对应行写入公式
        Range("A1:A" & lastRow).Formula = "=ROUNDUP(ROW()/10000,0)"
        ' 若需要把公式转换为静态值，可取消下一行的注释
        ' Range("A1:A" & lastRow).Value = Range("A1:A" & lastRow).Value
    End If
End Sub

补充说明 #

如果你的Excel版本默认使用分号作为公式参数分隔符，运行后公式显示错误，可以把公式赋值部分替换为如下代码：

Range("A1:A" & lastRow).FormulaLocal = "=ROUNDUP(ROW()/10000;0)"

如果确实需要整列A列都填充公式，直接把范围改为Range("A:A")即可。

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