ªð¦^¦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 : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD