取右边1位写在原址

天地一相 · 发表于 2023-7-10 10:43

本帖最后由天地一相于 2023-7-10 11:59 编辑

感谢帮助！如题，A1:H1000，单元格内全是整数，去末尾1位，写在原址。不使用right，我发现这个函数处理后文件变大了，速度慢了。

体验总结：开始我使用公式 Right 直接在表格内操作，然后把结果复制并数值化粘贴回原址。结果发现，文件反而变大了（按道理变小才对）。并且，对这部分数据的读取计算的速度大幅度变得慢了。后来我使用VBA，还是用这个函数，使用VBA处理后，文件略有变小。计算速度无变化。

于箱长 · 发表于 2023-7-10 10:45

n=left(n,len(n)-1)

lcluck2002 · 发表于 2023-7-10 10:48

除以10，取整。OK？

于箱长 · 发表于 2023-7-10 11:10

是去还是取？

半百 · 发表于 2023-7-10 11:27

保留最后一位？

liulang0808 · 发表于 2023-7-10 11:44

arr = Range("A1:H1000")
For j = 1 To UBound(arr)
      For i = 1 To UBound(arr, 2)
         arr(j, i) = arr(j, i) \10
      Next i
Next j
Range("A1:H1000") = arr

看看是否可行吧

		自动登录	找回密码
密码			免费注册

[已解决] 取右边1位写在原址

评分

评分

评分

评分

评分