VBA加归类的字符

shiruiqiang

yjwdjfqb 发表于 2024-3-14 18:10
老师你好，怎么防止，已经执行了一次命令，点执行命令时，不添加这些字符喃，谢谢老师了！

这里加几句就行

ykcbf1100

11楼正解。

yjwdjfqb

shiruiqiang 发表于 2024-3-14 18:49
这里加几句就行

老师你好
有二行，没有正确的添加上字符
执行过命令后，再执行命令，还是会添加字符喃
麻烦老师帮修改下，谢谢老师了！

Excel中VBA添加字符2.rar (14.45 KB, 下载次数: 1)

2024-3-14 19:16 上传

点击文件名下载附件

shiruiqiang

yjwdjfqb 发表于 2024-3-14 19:16
老师你好
有二行，没有正确的添加上字符
执行过命令后，再执行命令，还是会添加字符喃

yjwdjfqb

shiruiqiang 发表于 2024-3-14 19:58

谢谢老师，非常好用！！！

shiruiqiang

医疗系统的，顺手搞一下

yjwdjfqb

shiruiqiang 发表于 2024-3-14 20:20
医疗系统的，顺手搞一下

谢谢，谢谢老师！！！

yanglinzi

1. Sub test()
   
2. Dim arr, i, j, r
   
3. arr = Sheets("File").UsedRange
   
4. For i = UBound(arr) To 4 Step -1
   
5.     If InStr(arr(i, 1), "小计") Then
   
6.         x = Split(arr(i, 1), "小计")(0) & "-"
   
7.         arr(i, 1) = arr(i, 1)
   
8.     Else
   
9.         arr(i, 1) = x & arr(i, 1)
   
10.     End If
    
11. Next
    
12. Sheets("File").UsedRange = arr
    
13. End Sub

复制代码

yanglinzi

参与一下。。

sunya_0529

WPS里的JSA练习一下——