For文でそれぞれのブックからコピーした値もやはり順不同なため並べ替えたいのですが、実行をしてもフリーズしてしまいます。
どこがいけないのでしょうか。
具体的にはFor文で得た会社名と売上げの数字を同Book内にもう一つ並べ替え用のsheet(会社名を書いてある)を作って売上げがの数字があるところだけ入れていきたいのです。
初心者なのでわかりにくいコードですみません。
Sub test01()
Application.ScreenUpdating = False
Dim i As Long 'コピー元の行
Dim j As Long ’コピー先の行
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets(3) ’コピー先sheet
Set ws2 = Worksheets(2) 'コピー元sheet
For i = 2 To Rows.Count
For j = 2 To Rows.Count
If ws2.Cells(i, 2) <> "" Then
ElseIf ws2.Cells(i, 1).Value = ws1.Cells(j, 1).Value Then
ws1.Cells(j, 2) = ws2.Cells(i, 2).Value
End If
Next j
Next i
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは!
未検証ですが、
コードを拝見する限り
>Rows.Count
が指定されていませんね。
データの最終行までを示しているのであれば
変数を追加し、あらかじめ「Rows.Count」を指定する必要があります。
>For i = 2 To 最終行の変数
>For j = 2 To 最終行の変数
といった感じで・・・
当然 i の部分の「最終行」と j の部分の「最終行」は別の変数になると思います。
※ 指定がないと、シートの最終行までループしてしまうのでは?m(_ _)m
Rows.Countの変数というのがよくわからなかったのですが、
確かに、どのセルのRows.Countなのか指定していませんでした!
変数というのはこの長い部分を変数に置き換えるという意味ですか?
For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
と書き足してみたのと
条件式が間違っていたので<>を除いてみたらできました!!
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
相対参照から絶対参照に変換す...
-
別ブックの空白行に転記
-
bluetoothのclass1とclass2の互...
-
ExcelVBAで指定文字(この場合...
-
女性が頼まれなくてもフェラす...
-
射精したあとの匂いって他人に...
-
精液のにおいがほとんど無いの...
-
おっぱいを舐める
-
1日3回セックスって多いですか...
-
夫にセックスがないのなら他人...
-
先日彼氏とラブホに行ったら電...
-
彼とのエッチで、彼がイクのが...
-
彼女をオカズにして抜くのって...
-
男の精子ってどんな匂いですか、
-
手マンしたあと それとなく指の...
-
手マンした手って臭いですか?
-
手マンしたあと彼氏の指に私の...
-
彼氏の精液の匂いが無味無臭(...
-
あそこって・・みんな 舐める?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
既婚で現役のAV女優さんは居ま...
-
VBA ソートすると、1、11、...
-
CDレコの曲の消し方を教えてく...
-
VBAが止まります。
-
EXCELで3行を一組にして結合す...
-
大昔から、クンニ、フェラって...
-
シンナーの夏型と冬型の違いは?
-
私は今年で60歳で孤独です。40...
-
別ブックの空白行に転記
-
女性が頼まれなくてもフェラす...
-
直線コネクタの中央にコネクタ...
-
エクセル最終行の下に貼り付け
-
相対参照から絶対参照に変換す...
-
データの平均を1分値にまとめる...
-
Word 黒塗り部分の文字のみ削除...
-
4次元について
-
ウォークマンa30についてです。...
-
Excelで抽出・連続印刷したいです
-
最適な組み合わせの自動計算
-
ExcelVBAで指定文字(この場合...
おすすめ情報