大佬们 求助啊

haopw123

是这个样子 软件识别的数据格式很特殊

简单说就是每一行后面会有很多0
我只想保留最后的一个0  其他的都删掉
能不能写一个公式进行判断
图片中黄色的就是需要删掉的

haopw123

理想的状态 就是全选 然后从视口那里点击宏 然后直接执行

ykcbf1100

公式不会，写个VBA的吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.5.21
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     c = ActiveSheet.UsedRange.Columns.Count
   
4.     For i = 1 To r
   
5.         For j = c To 2 Step -1
   
6.             If Val(Cells(i, j)) Then
   
7.                 Exit For
   
8.             End If
   
9.         Next
   
10.         Cells(i, j + 2).Resize(1, c - j) = ""
    
11.     Next
    
12. End Sub
    

复制代码

小凡、、、

仅供参考--------------

haopw123

ykcbf1100 发表于 2024-5-21 20:07
公式不会，写个VBA的吧。

感谢大佬 我试试

quqiyuan

haopw123

小凡、、、 发表于 2024-5-21 20:13
仅供参考--------------

感谢感谢大佬 我测试下

haopw123

quqiyuan 发表于 2024-5-21 20:29

感谢感谢大佬

quqiyuan

haopw123 发表于 2024-5-21 20:43
感谢感谢大佬