|
行挿入するより、こっちの方が速いと思いますが。
Sub Data_Split()
Dim Nm As String
Dim MyR As Range, C As Range
Dim MyV As Variant
Dim i As Long
Set MyR = Range("A1", Range("A65536").End(xlUp))
i = 14: Nm = ActiveSheet.Name
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Worksheets.Add
For Each C In MyR
MyV = C.Resize(, 3).Value
If C.Row = 1 Then
Range("A1:C1").Value = MyV
Else
Cells(i, 1).Resize(, 3).Value = MyV
i = i + 13
End If
Next
With ActiveSheet
.Next.Delete
.Name = Nm
End With
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
|
|