Question

Excel vba高手帮忙，下面这个代码如果只需指定sheet1中的s列请来运行，请问改如何改啊？

Excel vba高手帮忙，下面这个代码如果只需指定sheet1中的s列请来运行，请问改如何改啊？Sub 公式转为数值()
Dim rng As Range, c As Range

Set rng = ActiveSheet.Range("A1").CurrentRegion
For Each c In rng.Cells
If c.HasFormula Then
c.Value = c.Value
End If
Next
End Sub

Answer 1

你这个代码写的太麻烦了，一句代码就可以搞定

Sub test()
    Sheets("Sheet1").Range("S:S").Value = Sheets("Sheet1").Range("S:S").Value
End Sub

 你如果一定要求在你原代码上改，可以这样

Sub 式转为数值()
    Dim rng As Range, c As Range
    Set rng = Sheets("Sheet1").Range("S:S")
    For Each c In rng
        If c.HasFormula Then
            c.Value = c.Value
        End If
    Next
End Sub

追问

非常感谢您

Answer 2

Worksheets("sheet1").Range("S:S ").Select