用宏转为数值格式

hhxq001

lcluck2002 发表于 2024-10-29 11:06
请楼主测试

Private Sub CommandButton2_Click()
   Columns(3).NumberFormat = "0.00"
   Range("z1").Copy
   bRow = Range("b65536").End(xlUp).Row
   Range("c2:c" & bRow).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
   Range("C3").Select
End Sub

hhxq001

ww87725244 发表于 2024-10-29 11:04
代码最好写在模块里面

可以说一下为什么吗

wengjl

Private Sub CommandButton1_Click()
   brow = ActiveSheet.Range("b65536").End(xlUp).Row
   For x = 2 To brow
     For y = 2 To 3
       Cells(x, y).Value = CDbl(Cells(x, y).Value)
     Next
   Next
End Sub

hhxq001

江声依旧 发表于 2024-10-29 11:01

数据行多了慢

hhxq001

江声依旧 发表于 2024-10-29 11:01

   bRow = ActiveSheet.Range("b65536").End(xlUp).Row
   For i = 2 To bRow
       Range("c" & i).Value = Range("c" & i) * 1
   Next i

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, r&
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "C").End(xlUp).Row
    With Range("C1:C" & r)
        ar = .Value
        .Clear
        .Value = ar
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

hhxq001

gwjkkkkk 发表于 2024-10-29 19:14
Option Explicit
Sub TEST2()
    Dim ar, r&

这个Beep这里是什么意思

gwjkkkkk

hhxq001 发表于 2024-10-30 10:19
这个Beep这里是什么意思

提示音，表示完成