|
本帖最后由 hasyh2008 于 2018-7-15 14:14 编辑
Sub 合并相同的单元格()
Dim strDep As String
Dim Rng As Range
Dim Rown%, Rown2%, X%
X = Range("A" & Rows.Count).End(xlUp).Row
strDep = Cells(2, 1).Value
Set Rng = Cells(2, 3)
'关闭警告提示
Application.DisplayAlerts = False
For Rown = 2 To X + 1
If strDep = Cells(Rown, 1).Value Then
Set Rng = Union(Rng, Cells(Rown, 3))
Else
Rng.Merge
strDep = Cells(Rown, 1).Value
Set Rng = Cells(Rown, 3)
End If
Next Rown
'开启警告提示
Application.DisplayAlerts = True
For Rown2 = 2 To X
X = Range("A" & Rows.Count).End(xlUp).Row
Range("C" & Rown2) = WorksheetFunction.SumIf(Range("A2:A" & X), Range("A" & Rown2), Range("B2:B" & X))
Next Rown2
End Sub
Sub 取消合并()
Range("C2:C" & Rows.Count).Select
Selection.UnMerge
Selection.ClearContents
End Sub
|
|