なんとか今週中にしあげなければならない状況で、ご存知の方がいらっしゃれば助けていただければと思います。
O4~O列に入力データがあり、P4からP列に結果入力が有ります。O4をコピーしてE9にペーストするとG22に結果が出ます、その結果G22をコピーしてP4にペーストをする。
マクロの記録で行うと次の様になります。
Range("O4").Select
Selection.Copy
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G22").Select
Application.CutCopyMode = False
Selection.Copy
Range("P4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
O5・P5、O6・P6・・・と繰り返してコピーをしていき、データがなくなったらループを修了するという記述をしたいのですが、わかりません。データー数は10000個程度有ります。
いろいろネットで探してみたのですが、55歳の頭では、ちんぷんかんぷんです。
どなたか教えていただけませんでしょうか。
宜しくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんにちは!
コードを拝見するとP列には必ずG22セルの値を表示させればよいのでしょうか?
そうであれば、値のコピー&ペーストになっていますので、
単に値の代入の方が早いと思います。
Sub Sample1()
Dim i As Long
For i = 4 To Cells(Rows.Count, "O").End(xlUp).Row
Range("E9") = Cells(i, "O")
Cells(i, "P") = Range("G22")
Next i
End Sub
こんな感じではどうでしょうか?
※ G列もループさせる必要があるような気がしますが、お示しのコードから判断できるのは
この程度でしょうかね。m(_ _)m
No.1
- 回答日時:
お急ぎということなので、最低限の改修です。
改修したには、下記の「←追加」「←修正」の部分です。
それから、この手のご質問は、Excel(エクセル) のカテゴリに
上げた方が、レスポンスが良いですよ。
Dim I As Long '←追加
Application.ScreenUpdating = False '←追加
For I = 4 To Range("O4").End(xlDown).Row '←追加
Range("O" & I).Select '←修正
Selection.Copy
Range("E9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G22").Select
Application.CutCopyMode = False
Selection.Copy
Range("P" & I).Select '←修正
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next I '←追加
Application.ScreenUpdating = True '←追加
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) コピーしたデータを表中で収まるように2列に分けて貼り付けする方法を教えてください。 8 2022/06/24 14:28
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
尿検査前日に自慰行為した時の...
-
白血球が多いとどんな心配があ...
-
尿検査の前日は自慰控えたほう...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
EXCELで式からグラフを描くには?
-
変な話しになります。尿検査で...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
-
Excelで""で囲む方法
-
ある範囲のセルから任意の値を...
-
2つの数値のうち、数値が小さい...
-
精子が黄色?
-
エクセルでエラーが出て困って...
-
納豆食べた後の尿の納豆臭は何故?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報