|
>▼ゆう さん:
True/Falseが逆でした。ごめんなさい。
>こんばんは。
>アクティブシートを対象にしています。
>'========================================================
>Sub 行2移動()
Application.ScreenUpdating = false
> Call 移動(2)
Application.ScreenUpdating = true
>End Sub
>'========================================================
>Sub 行8移動()
> Application.ScreenUpdating = false
> Call 移動(8)
> Application.ScreenUpdating = true
>End Sub
>'========================================================
>Sub 移動(Keynum As Long)
>For idx = 2 To Cells(Rows.Count, 1).End(xlUp).Row
> Range(Cells((idx - 2) \ Keynum + 1, ((idx - 2) Mod Keynum) * 10 + 1), Cells((idx - 2) \ Keynum + 1, ((idx - 2) Mod Keynum) * 10 + 10)).Value = _
> Range(Cells(idx, 1), Cells(idx, 10)).Value
> Range(Cells(idx, 1), Cells(idx, 10)).Value = ""
> Next
>End Sub
>
>確認してみて下さい。
|
|