循环—删除单元格内部分数据

源小舟

新人求助：已知C2:L19 的数据形式是 数值(百分比)，如：5680(20-25%)，现在想把()里的备注内容去除，让C2:L19 的数据形式仅展示 数值，如：5680。
VBA 该如何实现？

目前的做法是 单列录制宏-split数据，然后逐列点击。

怎么写一个循环语句，实现自动操作呢？

删除部分数据.7z (6.87 KB, 下载次数: 4)

2018-6-4 10:24 上传

点击文件名下载附件

jiangxiaoyun

1. Sub vf()
   
2.     Dim arr
   
3.     arr = Sheet1.Range("c2", Sheet1.Cells(Rows.Count, "L").End(xlUp))
   
4.     For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.     arr(i, j) = Val(arr(i, j))
   
7.     Next
   
8.     Next
   
9.     Sheet1.[c2].Resize(UBound(arr), UBound(arr, 2)) = arr
   
10. End Sub
    

复制代码

源小舟

jiangxiaoyun 发表于 2018-6-4 10:45

感谢！
要学习一下这个代码！~