|
ぴかるさんありがとうございます。遅くなりましてすみません。
初心者なので質問の仕方もよく出来ていなくて・・・
現在このような状態です。
※Gyou,AACD,BBCDなどは変数で宣言しています。
Sheets("A").Select
Do Until Gyou > AllRecCnt
If Cells(Gyou, AACD).Value = 1 Then
If Cells(Gyou, BBCD).Value = 2 Then
Rows(Gyou).Select
Selection.Copy
Sheets("C").Select
NewRecCnt = Range("A1").CurrentRegion.Rows.Count + 1
Cells(NewRecCnt, 1).Select
ActiveSheet.Paste
Sheets("A").Select
End If
End If
Gyou = Gyou + 1
Loop
Sheets("A").Select
NewRecCnt = Range("A1").CurrentRegion.Rows.Count + 1
[ここに並べ替えを入れたい!]
この後、同様にシートBからIf文で該当するデータをコピー・ペースト
しています。(データの数は決まっておりません)
シートAから該当データのコピーが終わった時点で並べ替えを行うのは
どうしたらいいのでしょうか?並べ替えをして見ましたが、シートBの
データも一緒に並べ替えられます。
範囲指定の方法が分かりません。
ご面倒掛けますがよろしくお願いします。
|
|