ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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
学习

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD