怎样使用VBA根据工作表的内容另存为单独的工作簿，另存的工作簿名称跟工作表的内容相关

因为知道的信息有限，你试试下面这个：

Sub ssk()
Dim FName As String
Dim MyExcelApp As New Excel.Application
Dim W00KBookName As String
W00KBookName = Excel.Application.ActiveWorkbook.Name
Dim i As Integer

For i = 1 To Excel.Application.Workbooks(W00KBookName).Sheets.Count
   Excel.Application.Workbooks(W00KBookName).Sheets(i).Activate
   If Cells(2, 1) = "单" Then
      FName = "DS" & Left(Excel.Application.Workbooks(W00KBookName).Sheets(i).Name, 2) & ".XLS"
   Else
      FName = "DX" & Left(Excel.Application.Workbooks(W00KBookName).Sheets(i).Name, 2) & ".XLS"
   End If
   
   Cells.Select
   Selection.Copy
    
   MyExcelApp.Workbooks.Add
   MyExcelApp.Workbooks(1).Activate
   Sheets(1).Select
   Cells.Select
   ActiveSheet.Paste

   MyExcelApp.Workbooks(1).SaveAs Filename:=Excel.Application.ThisWorkbook.Path & "\" & FName
   MyExcelApp.Workbooks(1).Close
   
Next i

Set MyExcelApp = Nothing

End Sub

发表格过来