合并单元格实例操作

帮我熟悉：获取行数的公式：usedrange.rows.countoffset/risize/merge等函数的使用。Sub 合并单元格() Application.DisplayAlerts = False Dim i%, k% i = UsedRange.Rows.Count For k = i To 2 Step -1If Cells(k, 1) = Cells(k,
2016-08-08 业界
merge offset vba cells

帮我熟悉：

  1. 获取行数的公式：usedrange.rows.count

  2. 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

版权声明

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符，请点击 举报 进行投诉反馈！

推荐阅读