使用VBA在excle中写一个代码，对工作表内容进行拆分，当运行时弹出对话框输入需要拆分的列，然后对相应的内容以列的内容为名字拆分到新的工作表中

这是一个例子：

Sub SplitSheet() Dim col As String col = InputBox("请输入需要拆分的列(如A、B、C)：") Dim i As Integer Dim uniqueValues As New Collection Dim value As Variant Dim lastRow As Long lastRow = Cells(Rows.Count, col).End(xlUp).Row For i = 2 To lastRow value = Cells(i, col).Value On Error Resume Next uniqueValues.Add value, CStr(value) On Error GoTo 0 Next i For Each value In uniqueValues Sheets.Add(After:=Sheets(Sheets.Count)).Name = value For i = 2 To lastRow If Cells(i, col).Value = value Then Rows(i).Cut Destination:=Sheets(value).Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i Next value End Sub

您可以把这段代码复制到VBA编辑器中，然后运行它。运行时会弹出一个对话框，询问您需要拆分的列。输入列名(如A、B、C等)，然后点击确定。然后它会对工作表内容按照您输入的列进行拆分，并以列的内容为名字新建工作表。