可能很简单,但我赶时间。
Public Sub StergeSTorOR()
Dim oRow As Range
Dim cell As Range
Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1
For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1
* *我如何循环遍历单元格的值并更改,用。同时反之亦然
Next j
Next i
Application.ScreenUpdating = True
End Sub