Snasui Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 áÁâ¤Ã
'
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-30
End Sub

Code: Select all

Sub Enter_Values()
   For Each xCell In Selection
      xCell.Value = xCell.Value
   Next xCell
End Sub

Code: Select all

Sub test()
With Columns("B")
  .Cells.NumberFormat = "General"
  .Value = .Value
End With
End Sub