在excel中用宏代码实现:当前活页中的T17至T48复制并转至到新的活页中,并且每隔12列执行一次相同的操作,直到没有数据
时间: 2023-03-29 21:00:30 浏览: 79
您好,可以使用以下宏代码实现您的需求:
Sub CopyAndPaste()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim lastCol As Integer
Dim lastRow As Integer
Dim ws As Worksheet
Dim newWs As Worksheet
Set ws = ActiveSheet
lastCol = ws.Cells(17, Columns.Count).End(xlToLeft).Column
For i = 1 To lastCol Step 12
Set newWs = Sheets.Add(After:=Sheets(Sheets.Count))
newWs.Name = "Copy " & i
For j = 17 To 48
lastRow = ws.Cells(j, Columns.Count).End(xlToLeft).Column
For k = i To i + 11
If k <= lastCol Then
ws.Range(ws.Cells(j, k), ws.Cells(j, k)).Copy
newWs.Cells(j, k - i + 1).PasteSpecial xlPasteValues
End If
Next k
Next j
Next i
Application.CutCopyMode = False
End Sub
希望能帮到您!