|
新規Bookのシート1のセルA5〜A25に1〜5の値を入れる。
B列以降は適当なデータを入れる。
A5〜A25の値が1,3,5の時はシート2に、それ以外の時はシート3の
2行目にシート1のデータをコピー・挿入しシフトダウンする。
Sub test()
Dim ws As Worksheet
Dim r As Range
Dim sh As String
Set ws = Worksheets("Sheet1")
Application.ScreenUpdating = False
With ws
For Each r In .Range("A5:A25")
Select Case r.Value
Case 1, 3, 5
sh = "Sheet2"
Case Else
sh = "Sheet3"
End Select
r.EntireRow.Copy
Worksheets(sh).Rows(2).Insert shift:=xlDown
Application.CutCopyMode = False
Next
End With
Application.ScreenUpdating = True
End Sub
新しいブックを作って試してみて下さい。
こうゆう感じの事かなと思ってます。
|
|