エクセル VBA

質問

最近マクロの勉強を始めたばかりの初心者で、どうしても Loop 処理の構文が理解出来ません。

Ｓ列　Ｔ列　Ｕ列
　０　　０　　０
１０　　５　　８
　０　　４　　０
　 ・　　・　　 ・
　 ・　　・　　 ・

上記のようにＳ列（３行目）からＵ列（最終行変動）に０～２００００位の値が入っていて、データの並び替えでＳ列（昇順）で並べ替えをした後、Ｓ列の値が０の場合のみＳ～Ｔ列をDelete Shift:=xlUP したいです。
もしくはＳ列が０の場合のみＴ列まで選択 Range("S3:U...") とし、Ｓ列が０の行をまとめて Delete Shift:=xlUp したいです。
並べ替えまでマクロすぐ出来たのですが、Loop For Next など構文が理解できません。
どなたかお知恵をお貸し下さい。

回答No.3

myRange

質問者のレベルでは、先ず、一行ずつ０のセルを探していく方法から試してみるのがいいでしょう。
この方法だとソートしてあってもなくても動作させることができますので。

'-------------------------------------------------
Sub test()
　Dim R As Long

　For R = Cells(Rows.Count, "S").End(xlUp).Row To 3 Step -1
　　　If Cells(R, "S").Value = 0 Then
●　　　　Range("S" & R & ":U" & R).Delete xlShiftUp
　　　End If
　Next R
End Sub
'--------------------------------------------------

なお、上記●のコードは次のように書くこともできます。

　Range(Cells(R, "S"), Cells(R, "U")).Delete xlShiftUp
　Cells(R, "S").Resize(1, 3).Delete xlShiftUp

また、０の行全体を削除する場合は次のようにします。

　Rows(R).Delete xlShiftUp
　Cells(R, "S").EntireRow.Delete xlshiftup
　Range("S" & R).EntireRow.Delete xlShiftUp

以上です。

回答No.2

imogasi

色々長々と書いたり、
＞Loop For Next など構文が理解できません
と大きく質問内容を広げているが、書く必要が無い部分が多いのでは。
Ｓ列で（空白行が無いとして）、０の行は、上のほうの最初の方に固まるのではないのですか。
そうであれば、ソート後で、０が途切れる行をどういうコードで見つけるか、という質問ではないですか。
ーー
（１）上から０かどうか聞いて（ＩＦ文で）行って、最初に０以外になった行の手前が、０の最終行です。
下行から０かどうか聞いていく手もあるが、０の数が少ないと少し無駄になる。
（２）下行から０かどうかを見つけられるとよいのだが
ＶＢＡにはＲｅｖｅｒｓｅＦｉｎｄ関数的なものが無いので使えない。
コード上で繰り返しをしない方法は、難しいのかもしれない。
よいアイデアが浮かばない。
それでキワモノですが下記を挙げて置きます。
Sub test01()
d = Range("A35656").End(xlUp).Row
Range("C13").FormulaArray = "=MAX(IF(A1:A" & d & "=0,ROW(A1:A" & d & "),0))"
X = Range("C13")
Rows("1:" & X).Delete
Range("C13")=""
End Sub
を実行すると出来るが。
Ｃ１３は仮に使うセルで、邪魔にならないセルを何処か指定する例。
エクセル関数では、シートに
=MAX((A1:A100=0)*(A1:A100<>"")*ROW(A1:A100))
と入れてＳＨＩＦＴ、ＣＴＲＬとＥＮＴＥＲキーを同時押しすることに当たる。配列数式。１００は１００行目までの意味で、実データ行数より余分目に指定して可。
０がセル位置的に一塊になっていて、0の最下行を求める式。

お礼

回答頂きありがとうございました。
まだVBAの勉強始めたばかりで、上記の質問だとLoopやFor Nextを使わないと処理出来ないと思ってました＞＜

回答No.1

okormazd

S列が何行0かは、while 分で調べて、0の行をまとめて削除している。
勉強してください。

Sub test2()

r = 1
c = 3
z1 = Range("s3").Value
If z1 <> 0 Then Exit Sub
z2 = Range("s3").Offset(r, 0).Value
While z1 = z2
r = r + 1
z2 = Range("s3").Offset(r, 0).Value
Wend

Range("S3").Offset.Resize(r, c).Delete Shift:=xlUp

End Sub

お礼

即答ありがとうございます。
もっと勉強します。