A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
既に回答は出ており、それなりに難しいですが、ふと思いついて・・
たとえばA2:C4
A列 B列 C列
a1x
b2y
c3z
これをC4で+ハンドルをだし、「CTRLを押しながら」下へ引っ張ると
繰り返しコピーして
a1x
b2y
c3z
a1x
b2y
c3z
a1x
b2y
c3z
a1x
b2y
・・・・
になりました。
VBAでは、たった2行
Sub test01()
Range("A2:C4").Select
Selection.AutoFill Destination:=Range("A2:C19"), Type:=xlFillCopy
End Sub
です。
これをA2:C4----->A1:A50
A2:C19------->A1:A5000
にして実行してみてください。うまくいくのではないかと思います。
エクセルの特別な機能をVBAに置き換えたものです。
No.2
- 回答日時:
こんにちは。
ご質問を読んで、コードでなぜ挿入を使っているのか分りませんが、下に何かあると予想すると、こういうことかな?挿入を使うというのは、ちょっとややこしいです。上書きがよいなら、単に、AutoFillメソッドだけでよさそうです。
'----------------------------------
Sub TestRefrainCopy()
Dim r As Range
Const TIMES As Integer = 100 '回数
If TIMES < 1 Then Exit Sub
Set r = Range("A1:A50")
r.Offset(r.Count).Resize(r.Rows.Count * TIMES).Insert Shift:=xlDown
r.AutoFill r.Resize(r.Rows.Count * (TIMES + 1)), Type:=xlFillCopy
Set r = Nothing
End Sub
'----------------------------------
No.1
- 回答日時:
Select/Activateは極力避けましょう。
トラブルのもとです。Sub test()
Dim i As Long, x As Integer
Application.ScreenUpdating = False
Range("a1:a50").Copy
For i = 1 To 100
Cells(x + 51, 1).PasteSpecial
x = x + 50
Next
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
-
4
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
5
VBA コピーを有効行までループをする方法
Excel(エクセル)
-
6
エクセルVBA 指定範囲を指定回数繰り返しコピー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントについて! パソ...
-
音声マークを一括非表示にしたい。
-
パワーポイントの表
-
PowerPointのスライドショーで...
-
パワーポイント「スライドショ...
-
パワーポイントの挿入→図形のや...
-
PowerPointのスライドの途中で...
-
無料のブレゼンソフトでも講演...
-
PowerPointで、線を点滅した感...
-
ExcelのグラフをPowerPointに貼...
-
パワーポイントMacBookにて、 ...
-
PowerPointVBAでスライドマスタ...
-
PowerPointのアニメーションで...
-
パワーポイントの自動開始方法
-
PowerPointでスライドマスタの...
-
パワポ初心者で申し訳ありませ...
-
パワーポイントで説明しながら...
-
パワーポイントのLabel1に日付設定
-
パワーポイントのアニメーショ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数行を繰り返しコピーする方...
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
Excelで行ごとコピー、同じ行を...
-
Excelの関数について、特定の文...
-
エクセルでグラフタイトルが折...
-
エクセル
-
塗りつぶしの色をコピーするには
-
エクセルにおける、グラフの指...
-
エクセル 指定した文字列を含...
-
C+vのvは英語で何の頭文字...
-
エクセル 入力中に表示されな...
-
【Excel】貼り付けた画像がいつ...
-
たくさん作った同じ設定のグラ...
-
日付が1年以内になると他のセル...
-
パワーポイントに貼り付けたエ...
-
EXCEL・複数ある円グラフの円の...
-
数字がセルの左側に寄っていて...
-
エクセルグラフの一括設定。
-
【エクセル】表の中の文字だけ...
おすすめ情報