Excel VBA質問箱 IV

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

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


18814 / 76732 ←次へ | 前へ→

【63356】Re:ループの記述について
発言  Yuki  - 09/10/29(木) 11:25 -

引用なし
パスワード
   ▼もん太 さん:
>オートフィルタをする表がA〜H列まであります。
>その中のA〜L列まで取りたいのですがその場合はどうしたらよいのでしょうか。

A〜L列はA〜H列列より大きいですけど

Sub test()
  Dim i  As Long
  For i = 1 To 31
    With Sheets("あああ")
      .AutoFilterMode = False
      .Range("A1").CurrentRegion.AutoFilter Field:=4, _
        Criteria1:=Sheets("0").Cells(i + 6, 3).Value, Operator:=xlAnd
      With .AutoFilter.Range
        ' 見出し行を外す         8だとH,12だとL(全体の時は無しでよい)
        .Offset(1).Resize(.Rows.Count - 1, 8).Copy Sheets(cStr(i)).Range("B2")
      End With
    End With
  Next
End Sub
2 hits

【63343】ループの記述について もん太 09/10/28(水) 17:05 質問
【63345】Re:ループの記述について Jaka 09/10/28(水) 17:40 発言
【63347】Re:ループの記述について もん太 09/10/28(水) 22:42 質問
【63348】Re:ループの記述について もん太 09/10/29(木) 8:58 発言
【63353】Re:ループの記述について Jaka 09/10/29(木) 10:48 発言
【63355】Re:ループの記述について もん太 09/10/29(木) 11:09 質問
【63356】Re:ループの記述について Yuki 09/10/29(木) 11:25 発言
【63360】Re:ループの記述について もん太 09/10/29(木) 11:51 質問
【63363】Re:ループの記述について Yuki 09/10/29(木) 12:27 発言
【63365】Re:ループの記述について もん太 09/10/29(木) 13:39 お礼
【63358】Re:ループの記述について Jaka 09/10/29(木) 11:35 発言
【63361】Re:ループの記述について もん太 09/10/29(木) 11:56 発言

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