|
▼ゆう さん:
こんばんは。
アクティブシートを対象にしています。
'========================================================
Sub 行2移動()
Application.ScreenUpdating = True
Call 移動(2)
Application.ScreenUpdating = False
End Sub
'========================================================
Sub 行8移動()
Application.ScreenUpdating = True
Call 移動(8)
Application.ScreenUpdating = False
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
確認してみて下さい。
|
|