次のことを試しましたが、うまくいきません。
Sub Enter_Values3()
Dim dbl As Double
dbl = ThisWorkbook.Worksheets(2).Columns("A:A").Select
End Sub
マーティ・マクブリー・リンクが働いた
Sub macro()
Range("A:A").Select 'specify the range which suits your purpose
Sheets(2).Select
With Selection
Selection.NumberFormat = "0"
.Value = .Value
End With
End Sub
ありがとう
NumberFormat または CSNG を使用してみましたか?