Worksheets are truncated into multiple Excel sheet by a column ID

You can do this by putting the following method in VBA

Note: A worksheet name of Sheet1 is required,

Objects used refer to: http://zhucongg.blog.163.com/blog/static/1148148320153742843347/

Sub s ()

application.screenupdating = False

Dim sh as Worksheet, I as Integer

For i = 2 to Sheet1. [a65536]. End (3). Row

If Sheet1.cells (i, 1) <> sheet1.cells (i-1, 1) Then

Worksheets.add After:=worksheets (Sheets.count)

Set sh = ActiveSheet

Sh. Name = Sheet1.cells (i, 1)

Sh. Range ("A1"). Resize (1, 3). Value = Sheet1.range ("A1"). Resize (1, 3). Value

Sh. Range ("a65536"). End (3). Offset (1, 0). Resize (1, 3). Value = Sheet1.cells (i, 1). Resize (1, 3). Value

Else

Sh. Range ("a65536"). End (3). Offset (1, 0). Resize (1, 3). Value = Sheet1.cells (i, 1). Resize (1, 3). Value

End If

Next I

application.screenupdating = True

End Sub

Worksheets are truncated into multiple Excel sheet by a column ID