人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

<エクセルマクロ:積み下げマクロ>
A1?Anセル(nは変数)にある文字列(数値列混在)群を
A(n+1)セル以下にX個セットでコピーして貼り付けるマクロを希望します。

Xはメッセージボックス等で
「○○○(=X)セット貼りつける」等のメッセージで○○○に好きな数字を入れると
その数だけ下にセットで貼りつけられるマクロです。

???マクロ実行前(n=3、X=3を例として)????
1
2
3
これでマクロ実行 で ○○○=3と入力すると

???マクロ実行後????
1
2
3
1
2
3
1
2
3
1
2
3

*最初の3列1セット+3セットで、計4セットA1から下に並ぶ様な
となるマクロが希望します。

●質問者: hirohirohiro777
●カテゴリ:コンピュータ 学習・教育
✍キーワード:A1 エクセル コピー セル ボックス
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●35ポイント ベストアンサー
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

http://q.hatena.ne.jp/1286535571

◎質問者からの返答

大変ありがとうございます。

こちらの意図通りの設定で感謝感激です。

ありがとうございました。


2 ● うぃんど
●35ポイント
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

http://q.hatena.ne.jp/answer

◎質問者からの返答

早速ご回答ありがとうございました。

ありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ