返回列表 上一主題 發帖

[分享] 合并单元格偏移求和

[分享] 合并单元格偏移求和

Sub 合并单元格偏移求和()
Selection.ClearContents
Dim rng As Range
For Each rng In Selection
Set ma = rng.MergeArea
If ma.Address = rng.Address Then
rng.Value = rng.Offset(0, -2).Value
Else
ma.Cells(1, 1).Value = ma.Cells(1, 1).Value + rng.Offset(0, -2).Value
End If
Next
End Sub
学习

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題