合并单元格实例操作
帮我熟悉:
-
获取行数的公式:usedrange.rows.count
-
offset/risize/merge等函数的使用。
Sub 合并单元格()
Application.DisplayAlerts = False
Dim i%, k%
i = UsedRange.Rows.Count
For k = i To 2 Step -1
If Cells(k, 1) = Cells(k, 1).Offset(-1) Then
Cells(k, 1).Offset(-1).Resize(2).Merge
End If
Next
关键字:vba, offset, cells, merge
版权声明
本文来自互联网用户投稿,文章观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符,请点击 举报 进行投诉反馈!