excel中宏的使用

发布网友发布时间：2022-12-20 23:56

共3个回答

热心网友时间：2023-10-01 02:06

Sub Crazy0qwer()
    Dim Ar
    Dim I As Long
    Ar = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For I = 1 To UBound(Ar)
        X = InStrRev(Ar(I, 1), "/")
        If X <> 0 Then
            Ar(I, 1) = Left(Ar(I, 1), X - 1) & "." & Right(Ar(I, 1), Len(Ar(I, 1)) - X)
        End If
    Next
    Range("A1:A" & UBound(Ar)) = Ar
End Sub

热心网友时间：2023-10-01 02:06

没必要用VBA
直接同按CTRL+H
用替换法比什么都快追问具体怎么操作？我只是将斜杠改成点号

热心网友时间：2023-10-01 02:07

简单问题不要用vba,输入=SUBSTITUTE(a2,"/",".",6)下拉
即可

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com