Swap Contents of Two Cells in Excel

,

This post will guide you how to swap contents of two cells in Excel. How do I swap cell contents with VBA Macro code in Excel. how to swap values between two cells in Excel.

Swap Contents of Two Cells


You can use a VBA Macro code to quickly swap contents of two selected cells in Excel. Just do the following steps:

#1 open your excel workbook and then click on “Visual Basic” command under DEVELOPER Tab, or just press “ALT+F11” shortcut.

Get the position of the nth using excel vba1

#2 then the “Visual Basic Editor” window will appear.

#3 click “Insert” ->”Module” to create a new module.

convert column number to letter3

#4 paste the below VBA code into the code window. Then clicking “Save” button.

Sub SwapContent()
    Set Cell1 = Application.Selection
    Set Cell1 = Application.InputBox("select the first Cell:", "SwapContent", Cell1.Address, Type:=8)
    Set Cell2 = Application.InputBox("select the second Cell:", "SwapContent", Type:=8)
    tmp1 = Cell1.Value
    tmp2 = Cell2.Value
    Cell1.Value = tmp2
    Cell2.Value = tmp1
End Sub

swap contentof two cells5

#5 back to the current worksheet, then run the above excel macro. Click Run button.

swap contentof two cells1

#6 select the first cell, such as: B1

swap contentof two cells2

#7 select the second cell, such as: C1

swap contentof two cells3

#8 Lets see the result.

swap contentof two cells4

 

Leave a Reply