VBA 合并单元格

最新推荐文章于 2024-03-06 10:55:39 发布

原创最新推荐文章于 2024-03-06 10:55:39 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #integer

VBA 专栏收录该内容

6 篇文章

订阅专栏

本文提供了一段使用VBA实现的Excel表格处理代码，该代码能够检查并合并相同名称的行数据。具体操作包括禁用警告提示、循环读取活动工作表中的数据、判断并调用子程序进行指定行的合并，最后重新启用警告提示。

Sub a()
Application.DisplayAlerts = False
Dim i As Integer: i = 3
Do While Not IsEmpty(ActiveSheet.Cells(i, 1))
If ActiveSheet.Cells(i, 1) = ActiveSheet.Cells(i - 1, 1) Then
Call b(i - 1, i)
End If
i = i + 1
Loop
Application.DisplayAlerts = True
End Sub

Sub b(ByVal r1 As Integer, ByVal r2 As Integer)
For i = 65 To 77
Sheet1.Range(Chr(i) & r1 & ":" & Chr(i) & r2).Merge
Next
End Sub