Excel VBA質問箱 IV

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

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


8809 / 76732 ←次へ | 前へ→

【73491】オートフィルタのリスト毎に別シートにコピー
質問  とま  - 13/1/15(火) 16:31 -

引用なし
パスワード
   Sheet1にはA列からG列までデータ入力されています。
やりたいことはオートフィルタを利用し、D列のリストを取得し
そのリスト毎のデータを同じブック内の新しいシートにコピーをしていく。
コピーする際は、そのリストと同じシート名にしたいという事を
実現したいのですが、途中まで作成しましたがうまくいきません。
どなたかお知恵をお貸しください。


Sub Test()

Dim ws As Worksheet, r As Range
Dim myList As New Collection


On Error Resume Next

Set ws = ActiveSheet

With ws

  For Each r In .Range(.Range("D2"), .Range("D65536").End(xlUp))
    myList.Add r.Value, CStr(r.Value)
  Next r
 
  .Range("A1").AutoFilter
  If Not .AutoFilterMode Then .Range("A1").AutoFilter
 
  For i = 1 To myList.Count

    Set ws = Worksheets.Add(xlWBATWorksheet)
    Sheets(Sheet1).Select
   
    .Range("A1").AutoFilter field:=4, Criteria1:=myList(i)
    .Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
           Destination:=wb.Worksheets(1).Range("A1")

  Next i
  
 
  .Range("A1").AutoFilter

End With

Set myList = Nothing

End Sub
336 hits

【73491】オートフィルタのリスト毎に別シートにコピー とま 13/1/15(火) 16:31 質問
【73493】Re:オートフィルタのリスト毎に別シートに... n 13/1/15(火) 23:20 発言
【73531】Re:オートフィルタのリスト毎に別シートに... とま 13/1/18(金) 17:07 お礼

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