日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

搜索
分享

【原】Excel教程：一鍵批量修改工作表標(biāo)簽名稱

 部落窩教育BLW 2021-12-25
下面的Excel文件，有多張工作表，分別是：2021年1月、2021年2月、2021年3月……

現(xiàn)在需要批量一次性修改工作表標(biāo)簽名稱，將2021修改為2022。

Excel軟件本身沒有對(duì)工作表標(biāo)簽字符進(jìn)行批量修改的功能。我們只有借助VBA代碼快速查找替換批量修改。

修改過程如下：


操作步驟如下：
Excel軟件沒有批量修改工作表標(biāo)簽文字的功能，因此就需要我們自己動(dòng)手編寫一段VBA代碼來實(shí)現(xiàn)。
代碼如下：
Sub Find_replace_sheet_name()
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("請(qǐng)輸入您要查找的字符：", "部落窩教育", , , , , , 2)
    xNewName = Application.InputBox("請(qǐng)輸入您要替換為的字符：", "部落窩教育", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

    轉(zhuǎn)藏 分享 獻(xiàn)花（0）

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多