小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索
分享

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

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

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

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

修改過程如下：


操作步驟如下：
Excel軟件沒有批量修改工作表標簽文字的功能，因此就需要我們自己動手編寫一段VBA代碼來實現(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("請輸入您要查找的字符：", "部落窩教育", , , , , , 2)
    xNewName = Application.InputBox("請輸入您要替換為的字符：", "部落窩教育", , , , , , 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)藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多