如何分离数字和汉字多个excel位置不同

qgl2008

实现这个功能：excel中所有单元格里面有“ 数字  汉字”的，只要汉字，替换当前格内容。多个页签数字汉字位置不一样，具体看附件

小花鹿

用空格进行分割                                                        

qgl2008

多个单位格，多个文件，一个一个分割太麻烦。

limonet

用正则吧。

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d+ +)"
        For i = 2 To 22
            Cells(i, "F") = .Replace(Cells(i, "B"), "")
        Next i
    End With
End Sub

kxm1975

试试：
{=IF(ISTEXT(B4),CONCAT(TEXT(MID(B4,ROW($1:$20),1),)),B4)}

qgl2008

limonet 发表于 2023-6-17 11:20
用正则吧。

谢谢。这个是一个excle,位置固定，后面那2个sheet，汉字和数字位置不固定，怎么办？

ericxzhou

1. Sub test()
   
2.     Dim i%, arr, str
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "^(\d+ )?"
   
5.         arr = [a1].CurrentRegion
   
6.         For i = 2 To UBound(arr)
   
7.             arr(i, 2) = .Replace(arr(i, 2), "")
   
8.         Next
   
9.     End With
   
10.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
11. End Sub

复制代码

qgl2008

limonet 发表于 2023-6-17 11:20
用正则吧。

      

老师，好多这样的单位个都需要替换了数字。没有规律可言。

qgl2008

limonet 发表于 2023-6-17 11:20
用正则吧。

感谢大哥。用正则可以实现，我在附件里面嵌套一层循环
但是我3个sheet页，想点一下按钮3个sheet全部替换，要不然要手动一个sheet执行一次。


Sub limonet()
    Dim i%, j%
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d+ +)"
        For i = 2 To 30
          For j = 1 To 30
            Cells(i, j) = .Replace(Cells(i, j), "")
          Next j
        Next i
    End With
End Sub