Change the cell format into general using a macro in an excel report

Sometimes when I do a copy and paste, the format of the cell is not formated as “general” so instead to do one by one manually, this simple code will do the job automatically.

macro excel macro excel

 

When I use the macro ?

To format all cells into “general”.

 

How to create the macro ?

Read How to create, edit, hide and select a macro in an excel report

 

How to create the button to associate it with the macro ?

Read How to create a button and associated it to a macro in an excel report

 

How is/are the macro(s) ?

Copy the code below and paste it into your macro. You will see my comments in green if exist so follow the help to adapt to your need.


Sub test()
' change B:B by your column letter
Columns("B:B").Select
Selection.NumberFormat = "general"
' change B2:B20 by your range 
Range("B2:B20").Select
Dim i As Range
For Each i In Selection
  Dim j As String
  j = i.Value
  If i.Value <> Empty Then
    i.Value = i.Value
  Else
    Exit For
  End If
Next
End Sub

Interesting Topics