|
1 について
Dim i As Long
For i = 1 To Range("H65536").End(xlUp).Row Step 9
Cells(i + 8, 1).Resize(5).Value = Cells(i, 8).Value
Next i
2 について
On Error Resume Next
Range("A1", Range("A65536").End(xlUp)) _
.SpecialCells(4).EntireRow.Delete xlShiftUp
3 について
If Range("I1", Range("O65536").End(xlUp)) _
.Cut Range("A65536").End(xlUp).Offset(1)
4 について
>「名前」「コード」「1」「2」・・・「20」という名前のシートを作り
既にシートが作られていて、データが入力されているという前提で
Dim WS As Worksheet
With Worksheets(1)
If .Name = "まとめ" Then
.Cells.ClearContents
Else
Worksheets.Add(Before:=Worksheets(1)).Name = "まとめ"
End If
End With
For Each WS In Worksheets
If IsNumeric(WS.Name) Then
If WorksheetFunction.CountA(WS.Cells) > 0 Then
WS.UsedRange.Copy Worksheets(1) _
.Range("A65536").End(xlUp).Offset(2)
End If
End If
Next
Worksheets(1).Rows("1:2").Delete xlShiftUp
5 について
アクティブシート上の図形等を消すとして
ActiveSheet.DrawingObjects.Delete
以上、そちらの説明不足によって発生するようなエラーは、考慮してません。
|
|