用VBA拆分工作表，按工作表表名进行拆分，每行增加备注

以下是一个VBA代码示例，用于按工作表表名拆分工作表，并在每行增加备注：

Sub SplitBySheetName()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For Each ws In ActiveWorkbook.Worksheets
        Set newWs = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        newWs.Name = ws.Name
        
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        
        For i = 1 To lastRow
            newWs.Cells(i, 1).Value = ws.Cells(i, 1).Value
            newWs.Cells(i, 2).Value = ws.Cells(i, 2).Value
            newWs.Cells(i, 3).Value = "备注：" & ws.Name
        Next i
    Next ws
    
    Application.ScreenUpdating = True
End Sub

此代码将逐个遍历工作簿中的每个工作表，并为每个工作表创建一个新的工作表。然后，对于每个工作表，它将循环遍历该工作表的每一行，并将行中的数据复制到新工作表中的相应单元格，同时在每行的第三列增加一个备注，其中包含原始工作表的表名。

请注意，此代码假定您的工作簿中的每个工作表都具有相同的列结构。如果不是这种情况，则需要相应地修改代码。