Excel - VBA - 合并单元格填id

本文是我自己保留在用的宏模块分享给大家。也可以找我定制。

1.介绍

合并单元格填ID 对于报表来说很常见, 数据源不要合并单元格

2.使用步骤:

1. 选中要填序号的单元格
2. ALT+F8
3. 选择→执行

3.VBA代码:

复制直接可用, 运行方法: ALT + F8 → 选择要执行的名称 → 执行

Sub TimesFun_03_set_id()
'
' set_id 宏 填序号,不管有没有合并单元格
Dim rng As Range
Dim rng2 As Range

Dim selectedRange As Range
Set selectedRange = Selection


' 最后一行号 ##########################
maxRow = selectedRange.Rows(selectedRange.Rows.Count).Row

' 第一格 ##########################
Dim firstCell As Range
Set firstCell = selectedRange.Cells(1)

Dim rowNumber As Long
rowNumber = firstCell.Row

Dim columnNumber As Long
columnNumber = firstCell.Column

Cells(rowNumber, columnNumber).Select
Set rng2 = Selection ' 获取当前选择范围

'##########################
lastRow = rowNumber + maxRow

cellCount = lastRow - rowNumber


For i = 1 To maxRow:


    If rng2.Row < maxRow + 1 Then
        
        ActiveCell.FormulaR1C1 = i
        Set rng2 = Selection ' 获取当前选择范围
        rng2.Offset(1, 0).Select ' 选择当前选择范围下方的单元格
        Set rng2 = Selection ' 获取当前选择范围
    Else
        Exit Sub
    End If
Next
End Sub

---