求助，一行的内容如何转换成新的sheet

求助

庄子说不懂, 孟子也说不懂

盲猜，1 11 111自动生成新的sheet？显示报表筛选页？

第二行直接转到sheet2
第三行到sheet3

行数有点多，所以不方便复制

Sub 分布()
Dim c As Integer
Dim r As Integer
Dim sh As Worksheet
r = Sheets(1).Range("a1048576").End(xlUp).Row
c = Sheets.Count
For i = 2 To r + 1
If i <= c Then
Worksheets(i).Range("a1") = Worksheets(1).Range("a" & i - 1)
Else
Set sh = Sheets.Add
sh.Move after:=Worksheets(Sheets.Count)
sh.Name = i
sh.Range("a1") = Worksheets(1).Range("a" & i)
End If
Next i
End Sub

比如这张图，楼主，时间，钱，出是固定每个sheet都要带的
然后sheet2为第一行➕第二行
sheet3为第一行➕第三行
以此类推

这题，得吧主来做阅读理解

Option Explicit
Sub abc()
　Dim i
　Call doevent(False)
　For Each i In Sheets
　　If LCase(i.Name) <> "sheet1" Then i.Delete
　Next
　With Sheets("sheet1")
　　For i = 2 To .[a1].End(xlDown).Row
　　　Sheets.Add
　　　ActiveSheet.Name = "sheet" & i
　　　.Rows(1).Copy [a1]
　　　.Rows(i).Copy [a2]
　　Next
　End With
　Call doevent(True)
End Sub
Function doevent(flag As Boolean)
　With Application
　　.DisplayAlerts = flag
　　.ScreenUpdating = flag
　End With
End Function

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

16回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六