Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74932 / 76732 ←次へ | 前へ→

【6252】Re:範囲の取得
質問  キタ  - 03/6/20(金) 16:41 -

引用なし
パスワード
   ぴかるさんありがとうございます。遅くなりましてすみません。

初心者なので質問の仕方もよく出来ていなくて・・・

現在このような状態です。

※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の
データも一緒に並べ替えられます。
範囲指定の方法が分かりません。

ご面倒掛けますがよろしくお願いします。
0 hits

【6227】範囲の取得 キタ 03/6/19(木) 16:47 質問
【6230】Re:範囲の取得 ぴかる 03/6/19(木) 17:42 回答
【6252】Re:範囲の取得 キタ 03/6/20(金) 16:41 質問
【6253】Re:範囲の取得 ぴかる 03/6/20(金) 16:52 発言
【6255】Re:範囲の取得 キタ 03/6/20(金) 17:36 発言
【6260】Re:範囲の取得 ゆと 03/6/20(金) 19:50 回答
【6348】Re:範囲の取得 キタ 03/6/25(水) 16:04 お礼

74932 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free