Excel单元要填写文件名大神能帮忙写个宏吗?

发布网友发布时间：2024-10-07 19:34

共1个回答

热心网友时间：2024-12-12 06:19

工作表公式法：

=LEFT(REPLACEB(A1,FIND("-",A1,1),1,"/"),FIND(".",A1,1)-1)

VBA法：

Sub r()
    For i = 1 To Cells(1, 1).End(xlDown).Row
        Cells(i, 2) = Replace(Replace(Cells(1, 1), "-", "/", 1, 1), ".xlsx", "")
    Next i
End Sub

追问谢谢帮忙，我运行了vba ,却进入死循环怎么办？

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