0

他の人が作成した次のマクロがあります。

Sub test2()
Dim n As Integer, rng As Range
'n = InputBox("type the value of n")
Set rng = Range("a1")
rng.Select
line2:
n = InputBox("type no. of times you want to be repeated minus 1 for e.g if you wnat to be repeated 3 times type 2")
Range(rng.Offset(1, 0), rng.Offset(n, 0)).EntireRow.Insert
Range(rng, rng.End(xlToRight)).Copy
Range(rng, rng.Offset(n, 0)).PasteSpecial
Set rng = rng.Offset(n + 1, 0)
If rng = "" Then
GoTo line1
Else
GoTo line2
End If
line1:
Application.CutCopyMode = False
Range("a1").Select
MsgBox "macro over"
Stop


End Sub

  1. 範囲選択を動的にしたい、つまり上記のコードでは「a1」にハードコードされていますが、マクロを何度も繰り返したいので、マウスクリックで選択して毎回異なる開始点を選択したいです。

  2. また、セルのコピーが完了したら、再起動します。一度コピーしたら、マクロを停止したいと思います。次に、新しい開始点を選択します 行を選択し、それを x 回コピーします

事前にご協力いただきありがとうございます

4

1 に答える 1