Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4938 / 76735

←次へ　｜　前へ→


	【77412】Re:オートフィルタ　繰り返し

ウッシ - 15/9/17(木) 15:38 -


	引用なし

	パスワード

こんにちは

　　　　Sheets("計画").Range("K:N").Copy
　　　　.Range("E:H").PasteSpecial Paste:=xlPasteValues

でコピーされたデータ部分の1～2行目、セルE1:H2は空白になっていますか？
.Range("E3").CurrentRegionに影響があります。

また、
Criteria1:=.Cells(10, i).Value
は
Criteria1:=.Cells(i, 10).Value
ですね。

Sub test()
　　Dim aSh As Worksheet
　　Dim i　 As Integer
　　
　　Set aSh = Sheets("マクロセット")
　　'#データ更新
　　With aSh
　　　　.Columns("E:J").Clear
　　　　Sheets("計画").Range("K:N").Copy
　　　　.Range("E:H").PasteSpecial Paste:=xlPasteValues
　　　　Sheets("Data Base").Range("AP4:AP100").Copy
　　　　.Range("J8").PasteSpecial Paste:=xlPasteValues
　　　　
　　　　.Range("E3:H3").AutoFilter

　　　　If ActiveWorkbook.Worksheets.Count < 8 Then Exit Sub
　　　　For i = 8 To ActiveWorkbook.Worksheets.Count
　　　　　　.Range("$E$3:$H$5000").AutoFilter _
　　　　　　　　Field:=4, Criteria1:=.Cells(i, 10).Value
　　　　　　.Range("E3").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
　　　　　　Sheets(i).Range("B53").PasteSpecial Paste:=xlPasteValues
　　　　Next i
　　End With
　　
End Sub

0 hits

▼

【77409】オートフィルタ　繰り返し はる 15/9/17(木) 13:34