Swapping cell content to INCLUDE CELL FORMATTING (Text color, background color, etc)

[jcpeterson]

Now how would one (swap cell content) to include CELL FORMATTING?

This is the code I am trying to use. It works but it doesn't include cell formatting (text color, cell background, etc). It will only swap the text. Does not swap text color or cell background, etc.

Sub Button1_Click()

'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

[TMS]

Well, you can't use an array method because you can't store the formatting.

Guess you'd need to create a temporary (and hidden) worksheet. Then you can copy the whole first range there, move the second range across and then over-write the second range.

Not sure how it would cope with formulae in the range(s) though.


Regards, TMS