如何用程序把选中的数变为以万为单位且保留两位小数

ykcbf1100

yueyueniao 发表于 2024-7-18 20:33
With Sheets("Sheet1")
大侠，这一句能不能变成当前激活工作表啊，工作表名称变了，这个程序就不能运行 ...

With Sheets("Sheet1")改成With ActiveSheet

yueyueniao

gwjkkkkk 发表于 2024-7-18 20:33
.................

谢谢大侠，就是这种效果，谢谢，辛苦了！

yueyueniao

ykcbf1100 发表于 2024-7-18 20:30
附件更新了一下。

谢谢大侠，我马上看！

yueyueniao

ykcbf1100 发表于 2024-7-18 20:38
With Sheets("Sheet1")改成With ActiveSheet

收到，谢谢大侠

yueyueniao

gwjkkkkk 发表于 2024-7-18 20:32
Sub TEST()
    Dim tRng As Range, rngCel As Range
   

两位大侠都好厉害，谢谢，辛苦了！