[已解决]去掉单元格区域中的公式只保留数值

642070295

请教一下各位大师：“去掉A3单元格到B列最后一行数据（B列数据动态）中的公式，只保留数值”用代码怎么表达呢？
麻烦各位大师帮帮忙，先谢了！

最佳答案

月排行榜 / 总排行榜

suye1010

2013-11-3 12:51

Sub t4()
        Range("a3:b"&cells(rows.count,2).end(xlup).row)=Range("a3:b"&cells(rows.count,2).end(xlup).row).value
End Sub

跳转到最佳答案楼层

我心飞翔410

      Sub t4()
        Range("a3:b"&cells(rows.count,2).end(xlup).row).Copy
        Range("a3").PasteSpecial (xlPasteValues) '只粘贴为数值
      End Sub

suye1010

Sub t4()
        Range("a3:b"&cells(rows.count,2).end(xlup).row)=Range("a3:b"&cells(rows.count,2).end(xlup).row).value
End Sub

642070295

我心飞翔410 发表于 2013-11-3 11:35
Sub t4()
        Range("a3:b"&cells(rows.count,2).end(xlup).row).Copy
        Range("a3").Pa ...

请教一下“我心飞翔410”大师：   arr = Range("a3:b" &Range("b1048576").End(xlUp).Row):Range("a3:b" &Range("b1048576").End(xlUp).Row)=arr  这种表达的代码有问题吗？长期运行是否会不定时产生错误数据（即这种代码表达是否存在隐藏病毒的隐患）？麻烦大师指教一下！谢谢！

张雄友

这个不用宏吧，直接复制，选择性粘贴，数值不就完了？

我心飞翔410

arr = Range("a3:b" &Range("b1048576").End(xlUp).Row)
Range("b3").Resize(UBound(arr), 2)=arr  

xdragon

642070295 发表于 2013-11-3 12:51
请教一下“我心飞翔410”大师：   arr = Range("a3:b" &Range("b1048576").End(xlUp).Row):Range("a3:b"  ...

一直运行也不会有问题的，不过如果别人用的是excel2003就有问题。
至于病毒，此代码没有病毒的，不过如果你运行了带有恶意代码的宏，那就会有问题了。现在杀毒软件很发达，基本可以依靠的。

642070295

问题解决了！谢谢各位大侠！