[¤À¨É] ¦X¦}单¤¸®æ°¾²¾¨D©M

wqfzqgk

Sub ¦X¦}单¤¸®æ°¾²¾¨D©M()
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