|
大致做了下,目测还有后续需求,比如新生成的工作表如何命名等。。。{:2312:}
- Sub test()
- Dim ar
- Dim i As Long
- Application.ScreenUpdating = False
- ar = Sheets(2).Cells(1, 1).CurrentRegion
- For i = 2 To UBound(ar)
- Sheets(1).Copy , Sheets(Sheets.Count)
- With ActiveSheet
- .Cells(9, 2) = ar(i, 4)
- .Cells(9, 9) = "bsdq955" & ar(i, 1)
- .Cells(14, 3) = ar(i, 8)
- .Cells(14, 9) = ar(i, 3)
- .Cells(25, 1) = Split(ar(i, 5), Chr(10))(0)
- .Cells(26, 1) = Split(ar(i, 5), Chr(10))(1)
- .Cells(25, 9) = Split(ar(i, 6), Chr(10))(0)
- .Cells(26, 9) = Split(ar(i, 6), Chr(10))(1)
- End With
- Next i
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|