名为“Sheet1”的工作表命名变为'ZTE DOC',第一行第一列的格子命名为BATCH CODE，整理的数据从A2格子开始按列从小到大排列，根据这些条件改一下代码改一下代码

好的，以下是你需要的代码：

import openpyxl

# 打开工作簿
workbook = openpyxl.load_workbook('example.xlsx')

# 重命名工作表
worksheet = workbook['Sheet1']
worksheet.title = 'ZTE DOC'

# 重命名指定单元格
batch_code_cell = worksheet.cell(row=1, column=1)
batch_code_cell.value = 'BATCH CODE'

# 按列排序
worksheet.auto_filter.ref = worksheet.dimensions
worksheet.auto_filter.add_sort_condition('A2:A1048576')

# 保存工作簿
workbook.save('example.xlsx')

这段代码会打开名为 `example.xlsx` 的工作簿，然后将名为 `Sheet1` 的工作表重命名为 `ZTE DOC`，将第一行第一列的单元格命名为 `BATCH CODE`，最后按照 A 列的数据从小到大排序。排序后的数据会自动添加筛选器，你可以根据需要进行筛选。最后，代码会将修改后的工作簿保存回原文件。

相关问题

写一个EXCEL宏，查找工作表中sheet名字叫中兴通讯成品运输提货单(空运)的sheet，复制并放到新的工作表文件里的第一个sheet，并将新工作表所有公式内容转换成非公式，提取新工作簿B3到F3单元格里的信息，新的工作表文件格式用 中兴通讯成品运输提货单(空运) 提取到的信息 命名，并将新的工作表放到桌面

好的，以下是根据你的要求编写的Excel宏代码：

Sub CopySheetAndSave()
    
    ' 声明变量
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWB As Workbook
    Dim newWS As Worksheet
    Dim sheetName As String
    Dim fileName As String
    
    ' 获取要复制的工作表名称
    sheetName = "中兴通讯成品运输提货单(空运)"
    
    ' 遍历所有工作簿，查找指定名称的工作表
    For Each wb In Workbooks
        For Each ws In wb.Worksheets
            If ws.Name = sheetName Then
                ' 复制工作表到新的工作簿
                Set newWB = Workbooks.Add
                Set newWS = newWB.Sheets(1)
                ws.Copy Before:=newWS
                
                ' 将新工作表所有公式转换成非公式
                newWS.Cells.Copy
                newWS.Cells.PasteSpecial xlPasteValues
                
                ' 提取指定单元格的值并命名新工作表文件
                fileName = ws.Range("B3").Value & "-" & ws.Range("C3").Value & ".xlsx"
                newWB.SaveAs "C:\Users\" & Environ("username") & "\Desktop\" & fileName
                
                ' 关闭新工作簿
                newWB.Close False
                
                ' 退出循环
                Exit For
            End If
        Next ws
        If Not newWB Is Nothing Then Exit For
    Next wb
    
End Sub

这段宏代码会遍历所有打开的工作簿，查找名称为“中兴通讯成品运输提货单(空运)”的工作表，并将其复制到一个新的工作簿中。然后，它会将新工作表中所有公式转换为非公式，并提取单元格B3到F3中的值来命名新工作表文件。最后，它会将新工作表保存到桌面上。

请注意，在执行此宏代码之前，请确保您已将工作表名称更改为“中兴通讯成品运输提货单(空运)”，并在B3到F3单元格中输入了要提取的信息。此外，如果您希望将新工作表保存到桌面之外的其他位置，请修改代码中的保存路径。

上面这个宏增加一行代码，在'将新工作表额所有公式转换为非公式前，实现删除9列到11列里公式输出为FALSE的单元格内容，更新这个宏

下面是更新后的 VBA 代码，它在将新工作表中的所有公式转换为非公式之前，会删除第9-11列中输出为 FALSE 的单元格内容。

Sub CopySheetAndConvertFormulas()
    Dim ws As Worksheet, newWb As Workbook
    Dim suffix As String, newFileName As String
    Dim cell As Range
    
    ' 获取当前工作表中名为 "中兴通讯成品运输提货单(空运)" 的工作表
    On Error Resume Next
    Set ws = Worksheets("中兴通讯成品运输提货单(空运)")
    If ws Is Nothing Then
        MsgBox "未找到名为 '中兴通讯成品运输提货单(空运)' 的工作表。"
        Exit Sub
    End If
    
    ' 复制工作表到新的工作簿
    Set newWb = Workbooks.Add
    ws.Copy Before:=newWb.Worksheets(1)
    
    ' 删除第9-11列中输出为 FALSE 的单元格内容
    For Each cell In newWb.Worksheets(1).Range("I:I").SpecialCells(xlCellTypeFormulas, xlErrors).Cells
        If cell.Value = False Then
            cell.ClearContents
        End If
    Next
    For Each cell In newWb.Worksheets(1).Range("J:J").SpecialCells(xlCellTypeFormulas, xlErrors).Cells
        If cell.Value = False Then
            cell.ClearContents
        End If
    Next
    For Each cell In newWb.Worksheets(1).Range("K:K").SpecialCells(xlCellTypeFormulas, xlErrors).Cells
        If cell.Value = False Then
            cell.ClearContents
        End If
    Next
    
    ' 将新工作表的所有公式转换为非公式
    For Each ws In newWb.Worksheets
        ws.Cells.Copy
        ws.Cells.PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Next
    
    ' 获取后缀和新文件名
    suffix = newWb.Worksheets(1).Range("B3").Value
    If newWb.Worksheets(1).Range("B3").MergeCells Then
        suffix = newWb.Worksheets(1).Range("B3").MergeArea.Value
    End If
    newFileName = "中兴通讯成品运输提货单-" & suffix & ".xlsx"
    
    ' 保存新的工作簿并重命名工作表
    newWb.SaveAs "C:\Users\DELL\Desktop\ZTE TRUCK\中兴通讯成品运输提货单\" & newFileName
    newWb.Worksheets(1).Name = suffix
    
    ' 关闭新的工作簿
    newWb.Close SaveChanges:=False
    
    MsgBox "已完成操作。"
End Sub