在原有程序基础上，添加一个代码，把序号后面的，换成.

李伟杰123

在原有程序基础上，添加一个代码，把序号后面的，换成.

在原有程序基础上，添加一个代码，把序号后面的，换成..rar (16.97 KB, 下载次数: 1)

2024-5-24 16:53 上传

点击文件名下载附件

松永

参与一下。太榆路，太原人？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.24
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 1 To r
   
4.         st = Replace(Cells(i, 1), ".", "，")
   
5.         Cells(i, 3) = Split(st, "，")(1)
   
6.     Next
   
7.     MsgBox "OK！"
   
8. End Sub
   

复制代码

cnmlgb9998

这个效果？？？？？？？？？？？？

PQ 方案。。。。。。。




建议你附一个最终效果图。

剑指E

李伟杰123

松永 发表于 2024-5-24 11:05
参与一下。太榆路，太原人？

非常感谢
文件改动了一下，想在原有程序基础上，添加一个代码，把序号后面的，换成.

李伟杰123

ykcbf1100 发表于 2024-5-24 11:06
附件供参考。。。

非常感谢
文件改动了一下，想在原有程序基础上，添加一个代码，把序号后面的，换成.

李伟杰123

在原有程序基础上，添加一个代码，把序号后面的，换成.

usedrange

1. Sub t()
   
2.     Dim m%, s, k
   
3.     m = [a1].End(4).Row
   
4.     For i = 1 To m
   
5.         k = Cells(i, 1)
   
6.         Cells(i, "a") = Replace(k, "，", ".", , 1)
   
7.     Next i
   
8. End Sub

复制代码