A1～Anセル（ｎは変数）にある文字列（数値列混在）群を
A(n+1)セル以下にX個セットでコピーして貼り付けるマクロを希望します。
Xはメッセージボックス等で
「○○○（＝X)セット貼りつける」等のメッセージで○○○に好きな数字を入れると
その数だけ下にセットで貼りつけられるマクロです。
～～～マクロ実行前（ｎ＝３、X＝３を例として）～～～～
1
2
3
これでマクロ実行 で ○○○＝３と入力すると
～～～マクロ実行後～～～～
1
2
3
1
2
3
1
2
3
1
2
3
＊最初の３列１セット＋３セットで、計４セットA1から下に並ぶ様な
となるマクロが希望します。
No.1
13539
1198
35pt
Sub main() '文字入力 数値のみ Loopin: a = InputBox("○○○＝") b = Val(a) If b = 0 Then MsgBox ("処理できる値(数値)を入力してください") GoTo Loopin End If c = Range("A65536").End(xlUp).Row Range("A1:A" + Trim(Str(c))).Copy c1 = c + 1 c2 = c * b + c Range("A" + Trim(Str(c1)) + ":A" + Trim(Str(c2))).Select ActiveSheet.Paste End Sub
No.1
135391198
ここでベストアンサー
35pt
Sub main() '文字入力 数値のみ Loopin: a = InputBox("○○○＝") b = Val(a) If b = 0 Then MsgBox ("処理できる値(数値)を入力してください") GoTo Loopin End If c = Range("A65536").End(xlUp).Row Range("A1:A" + Trim(Str(c))).Copy c1 = c + 1 c2 = c * b + c Range("A" + Trim(Str(c1)) + ":A" + Trim(Str(c2))).Select ActiveSheet.Paste End Sub
大変ありがとうございます。
こちらの意図通りの設定で感謝感激です。
ありがとうございました。
No.2
26251149
35pt
Sub Macro1() Dim n As Long, x As Long n = 3: '例題に従って3行 x = InputBox("コピーする回数を入力してください") Range("A1:A" & n).Select Selection.Copy Application.CutCopyMode = False Selection.AutoFill Destination:=Range("A1:A" & (n * (x + 1))), Type:=xlFillCopy End Sub
早速ご回答ありがとうございました。
ありがとうございました。
2
2
1
1
1
大変ありがとうございます。
こちらの意図通りの設定で感謝感激です。
ありがとうございました。