VBAにて範囲選択およびコピーの方法について

質問

連休中失礼いたします。VBA初心者です。
VBAにて範囲選択の方法およびコピーの方法について教えてください。
(1)範囲選択の方法
　まず最初の条件としてD列における値が１．０以上(数値表記は少数点)の場合に限り、
それに該当する行をコピー(A～D列)したいのですが…　この方法をVBAの式で表したいのです。
　範囲選択として求めたい範囲は、下表で行くとRange（”A3：D6”）の範囲を選択したいのです。
　※D列における値が１．０以上の条件の指定までは、何とかできてそうな感じなのですが、
　　その条件を満たす、範囲選択がうまくできません。

(2)コピーの方法
　(1)で選択した範囲を、選択sheetを変更して貼り付けたいのですがどのようにしたらよろしいでしょうか？？

　　　　　　A列　　　　　B列　　　　　C列　　　　　　D列
１行　　　　１３　　　　　１０　　　　　　１０　　　　　　０．５
２行　　　　１０　　　　　８　　　　　　　７　　　　　　　０
３行　　　　１１　　　　　９　　　　　　　７　　　　　　　１．０
４行　　　　９　　　　　　２５　　　　　　１８　　　　　　１．５
５行　　　　８　　　　　　４３　　　　　　２３　　　　　　１．５
６行　　　　７　　　　　　１２　　　　　　２３　　　　　　１．０
７行　　　　６　　　　　　２３　　　　　　４３　　　　　　０．５　
８行　　　　１５　　　　　２３　　　　　　５４　　　　　　０
…
…

回答No.2

mu2011

NO1です。
>何回目を選択するかをVBAのプログラムより抜粋して、その範囲を選択したいのですが
　⇒Areasコレクションでオートフィルタの範囲を判別できますが如何でしょうか。
　　ご例示のデータでは、抽出後のセル範囲オブジェクトを認識できます。
　　Set b = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Areas
　　b(1)は、A1:D1（見出し）
　　b(2)は、A3:D4（１回目）
　　b(3)は、A6:D8（２回目）
　　b(4)は、A11:D13（３回目）
　　b(5)は、A16:D17（４回目）～以下同様

　　仮に２回目範囲を選択する一例です。
　　cnt = 3
　　With Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
　　For i = 1 To .Areas.Count
　　If i = cnt Then
　　 .Areas(i).Select
　　 Exit For
　　End If
　　Next
　　End With

回答No.1

mu2011

オートフィルタで抽出、その結果を反映した方が良いのではないでしょうか。
例えば、見出し行を追加→Ｄ列の１以上で抽出→別シートに貼り付けという順です。
Sub sample()
　Application.ScreenUpdating = False
　　With Worksheets("Sheet1")
　　　　If .AutoFilterMode Then
　　　　　　.AutoFilterMode = False
　　　　End If
　　　　.Range("A1").AutoFilter _
　　　　　　Field:=4, Criteria1:=">=1"
　　　　.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
　　　　　　Worksheets("Sheet2").Range("A1")
　　　　.AutoFilterMode = False
　　End With
　Application.ScreenUpdating = True
End Sub

お礼

ご丁寧にありがとうございます。早速やってみましたが、うまくできました。本当に助かりました。
AutoFilterModeについて調べてみましたが、すごく便利な機能です。今後も参考にさせて頂きます。

先程ご教授頂きました内容をSheet2に張り付けが可能となりましたが、
さらに、Sheet2に張り付けた内容から
　Ｄ列の1回目の1.5から2回目の1.5が始まる範囲Range("A2:D5")や
　Ｄ列の2回目の1.5から3回目の1.5が始まる範囲Range("A5:D10")や
　Ｄ列の3回目の1.5から4回目の1.5が始まる範囲Range("A10:D15")など
範囲選択をして違うsheetに張り付けたいのですが、その選択範囲はそのデータによって異なる
ため、こちらで何回目のデータの範囲がほしいかを指定する形をとるか、あらかじめ違うExcelシートに入力されている数字から何回目を選択するかをVBAのプログラムより抜粋して、その範囲を選択したいのですが…

いろいろと試行錯誤をしてチャレンジしていますが、なかなかうまくいきません。

もし、何か分かりましたら、またご指導の程お願いします。

　　　　　　A列　　　　　　B列　　　　　　C列　　　　　　　D列
１行　　　　１１　　　　　９　　　　　　　７　　　　　　　１．０
２行　　　　９　　　　　　２５　　　　　　１８　　　　　　１．５
３行　　　　８　　　　　　４３　　　　　　２３　　　　　　１．５
４行　　　　７　　　　　　１２　　　　　　２３　　　　　　１．０
５行　　　　６　　　　　　２３　　　　　　４３　　　　　　１．５　
６行　　　　１５　　　　　２３　　　　　　５４　　　　　　１．５
７行　　　　２３　　　　　４５　　　　　　５５　　　　　　１．５
８行　　　　３３　　　　　４４　　　　　　５６　　　　　　１．０
９行　　　　６３　　　　　４６　　　　　　７１　　　　　　１．０
10行　　　　８８　　　　　１１　　　　　　１７　　　　　　１．５
11行　　　　３２　　　　　７７　　　　　　５５　　　　　　１．５
12行　　　　７７　　　　　８２　　　　　　３２　　　　　　１．５
13行　　　　７７　　　　　１２　　　　　　９２　　　　　　１．０
14行　　　　８３　　　　　５６　　　　　　９２　　　　　　１．０
15行　　　　６２　　　　　７２　　　　　　６５　　　　　　１．５
16行　　　　３３　　　　　２３　　　　　　２１　　　　　　１．５