用vba取消专利号中的分节号,

386026398

专利号可能存在于文档文字部分，也可能存在于文档表格中。由于用VBA自动对数字添加分节号时，对专利号也添加了分节号，比如ZL202222784646.6变成ZL202,222,784,646.6。求助用vba将加了分节号的专利号中的分节号去掉。

沈默00

小白路过，楼主可以略过。。。。。。。楼主考虑下是不是用正则把专利号提取出来，不执行分节号，或后期对提取出来的专利号去除分节号

wengjl

AA=ZL202,222,784,646.6
Cells(X, Y).Value = Replace(AA, ",", "")  

格调是我

您可以使用VBA编写代码来将带有分节号的专利号中的分节号去掉。以下是一个示例代码：

```vba
Sub RemoveSectionNumber()
    Dim rng As Range
    Dim cell As Range
   
    ' 设置需要处理的单元格范围
    Set rng = Range("A1:A10") ' 根据实际情况设定范围
   
    ' 循环处理每个单元格
    For Each cell In rng
        ' 检查单元格中是否包含分节号
        If InStr(cell.Value, ".") >  Then
            ' 去除分节号
            cell.Value = Replace(cell.Value, ".", "")
        End If
    Next cell
End Sub
```

在上述代码中，我们假设待处理的专利号所在的范围是A1:A10。您可以根据实际情况进行适当修改。

请在VBA编辑器中打开Excel，将上述代码粘贴到模块中，并根据实际情况修改范围。然后运行这段代码，它将会遍历指定范围内的单元格，如果单元格中存在分节号，则将其去除。

注意：在运行代码之前，请务必备份您的数据，以防意外发生。

386026398

提示cell.Value和For Each cell In rng有误

ykcbf1100

这个不用VBA，直接把分节号替换掉就行了。

386026398

ykcbf1100 发表于 2023-6-30 10:07
这个不用VBA，直接把分节号替换掉就行了。

想自动化，所以要vba