No.1ベストアンサー
- 回答日時:
こんにちは。
>For i = 1 to Cell(Cells.Count, 1).End(xlUp).Row '←オーバーフローします。
正しくは、
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
実際には試さずに、頭の中だけで考えた質問でしょうけれども、こういう問題は、実際にVBEditorに書いて試してからにしてください。
以下が、ループのカウンタがインクリースする都度、Endプロパティを取っていたら、無限ループになるはずです。
'//
Sub Test1()
Dim i As Long
Dim j As Long
For i = 1 To 10
Cells(i, 1).Value = i
Next i
Stop '一旦止めました
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(j + 10, 1).Value = j
Next j
End Sub
'//
ありがとうございます。
私は「ループの度に計算して時間がかかるかなぁ」程度に考えてましたが、確かにループの度に取得値が変わったらすごいことになりますね。気づきませんでした。
No.2
- 回答日時:
A列の1~100000まで連番で埋めといて
標準モジュールで簡単なテストです。
Public Declare Function GetTickCount Lib "kernel32" () As Long
Sub test1()
Dim i As Long, j As Long, lastRow As Long, t As Long
t = GetTickCount
Cells(10001, 1).Value = Null
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
j = Cells(i, 1)
If i = 1000 Then '途中で1行追加
Cells(10001, 1).Value = 10001
End If
Next
Debug.Print j, GetTickCount - t
End Sub
Sub test2()
Dim i As Long, j As Long, lastRow As Long, t As Long
t = GetTickCount
Cells(10001, 1).Value = Null
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
j = Cells(i, 1)
If i = 1000 Then '途中で1行追加
Cells(10001, 1).Value = 10001
End If
Next
Debug.Print j, GetTickCount - t
End Sub
1/1000秒単位での経過時間は両者とも誤差の範囲内と言えるくらいに同じです。
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
の場合でも毎回Cells(Rows.Count, 1).End(xlUp).Rowを評価するわけではありません。
ループに入れば初回に得られた値で進みますね。
以上ご参考まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
-
4
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
5
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
6
EXCELのVBAでRange(A1:C4")を変数にする方法を教え"
Visual Basic(VBA)
-
7
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
8
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
VBAで条件が一致する行のデータを別シートに抽出
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
Cellsのかっこの中はどっちが行と列なの?
Visual Basic(VBA)
-
13
マクロの実行時エラー'1004'が解消できません
Visual Basic(VBA)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
エクセルVBA 最終行はlast row ? end row ?
英語
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
18
エクセルVBA Ifでシート名が合致したら別ファイルから転記する場合のElse IfとForの書き方
Visual Basic(VBA)
-
19
別シートの最終行に貼り付けするマクロを教えてください。 シートYのE3からE15までをコピー シート
Excel(エクセル)
-
20
VBA 数値を文字列として貼付したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どなたかこのプログラミングを...
-
画面を強制的に再描画させる方法
-
再帰関数のインライン展開
-
エクセルの当番表を作っていま...
-
VBAで3秒だけ時間を止めたい
-
VBAでの一時停止と再開の方法
-
繰り返し処理で50音順にする方法
-
ループ内での条件処理
-
EXCEL VBA ユーザーフォームの...
-
ループ7回目の悪役令嬢は、元敵...
-
ループフリー
-
UWSCに制限時間を付けたいです
-
乱数の桁数指定、または範囲指定。
-
vb.netです。2次元配列の要素を...
-
これの名称なんて~の?ダッフ...
-
エクセル関数で1〜12の数字がル...
-
COBOLプログラム
-
アクティブセルから、A列最終行...
-
Java 南京錠
-
VBA msg=""の使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
ループ7回目の悪役令嬢は、元敵...
-
UWSCの終了の仕方
-
Escキーを押すと、中断する時と...
-
エクセルの当番表を作っていま...
-
GIFアニメをループさせたくない
-
VBAで3秒だけ時間を止めたい
-
どなたかこのプログラミングを...
-
VBA for i=1 to lastrow
-
DOSコマンドのループ内のTIMEコ...
-
ListBox 複数選択 で オートフ...
-
vbscriptでIE自動入力(途中で...
-
vb.netからエクセル関数書き込み
-
DoEventsが必要な理由について
-
Java 南京錠
-
アクティブセルから、A列最終行...
-
テキストボックスの名前に変数...
-
範囲指定したセルを1つずつ飛...
-
VBA Dir関数でファイルをループ...
おすすめ情報