2

次のことを試しましたが、うまくいきません。

Sub Enter_Values3()
Dim dbl As Double
dbl = ThisWorkbook.Worksheets(2).Columns("A:A").Select
End Sub
4

2 に答える 2

9

マーティ・マクブリー・リンクが働いた

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

ありがとう

于 2013-09-16T19:33:48.707 に答える
0

NumberFormat または CSNG を使用してみましたか?

于 2013-09-17T08:01:22.487 に答える