循环数组练习：excel合并单元格设置序号

liuts

游客，如果您要查看本帖隐藏内容请回复

wk668

学习一下,谢谢

岁寒三友

跟着兰版学习了。
原来还没有权限使用 [hide] 代码{:301:}
只好“裸着”了。
Sub 合并单元格设置序号()
Dim r As Range, arr()
p = [a65536].End(3).Row: k = 2
For Each r In Range(Cells(k, 1), Cells(p, 1))
If Cells(k, 1).MergeCells Then
i = Cells(k, 1).MergeArea.Rows.Count
ReDim Preserve arr(1 To i)
For j = 1 To i
arr(j) = j
Next j
Cells(k, 1).Offset(0, 3).Resize(i, 1) = Application.Transpose(arr)
k = k + i
End If
Next
End Sub



Public Sub 合并单元格()
Dim j, arr(), brr()
Application.DisplayAlerts = False
i = [a65536].End(3).Row
arr = Range("a2:b" & i): n = 0
For j = 1 To UBound(arr) - 1
100
If arr(j, 1) = arr(j + 1, 1) Then
n = n + 1: arr(j, 2) = n: arr(j + 1, 2) = n + 1
Range(Cells(j + 1, 1), Cells(j + 2, 1)).Merge
Else
j = j + 1: n = 0: GoTo 100
End If
Next j
Range("b2:b" & i) = Application.Index(arr, 0, 2)
Application.DisplayAlerts = True
End Sub

chunlin1wang

游客，如果您要查看本帖隐藏内容请回复

youfang

学习一下好东西

lpsh1985

看看{:021:}{:021:}

TT147258369

来学习下{:011:}

chenlinlgli0734

{:22:}{:22:}{:22:}{:22:}{:22:}

sunjing-zxl

回复 兰色幻想 的帖子

游客，如果您要查看本帖隐藏内容请回复

我没有用数组，不知道可以过关不

amulee

看看