I have a problem merging cells in excel based on similar values for one column- I would like to keep other columns data - let's view some screenshots and it will be clearer:
以上是数据的初始状态,
我想要实现的是:
我确信有一种方法可以使用 VB 或公式来完成此操作 - 我需要尽可能最简单的方法,因为这是针对客户的,并且需要简单。
提前谢谢大家。
Option Explicit
Private Sub MergeCells()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim rngMerge As Range, cell As Range
Set rngMerge = Range("A1:A100") 'Set the range limits here
MergeAgain:
For Each cell In rngMerge
If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then
Range(cell, cell.Offset(1, 0)).Merge
GoTo MergeAgain
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
您可以对范围限制进行硬编码(即要检查的 A 列中的最后一行),让用户每次输入它,或者以编程方式查找 range 中的最后一行。不管怎样,这应该能让你开始。
顺便说一句,您可以在 A 列中找到最后一行,内容如下:
Dim i As Integer
i = Range("A1").End(xlDown).Row
Set rngMerge = Range("A1:A" & i)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)