[[20180516184502]]　『マクロ加工していただきたいです。』（ほほ）　ページの最後に飛ぶ

『マクロ加工していただきたいです。』（ほほ）

先ほどご質問をさせていただいたほほと申します。

先ほど、下記のマクロを作成していただきました。

Dim c As Range, r As Range

    Sheets("Sheet1").Range("J5:O" & Rows.Count).Clear
    Set r = Sheets("Sheet1").Range("J5")
    For Each c In Sheets("Sheet3").Range("D:D").SpecialCells(2)
        If c.Value = Sheets("Sheet1").Range("D6").Value And c.Offset(, 1).Value = Sheets("Sheet1").Range("D7").Value And c.Offset(, 2).Value = Sheets("Sheet1").Range("D8").Value Then
            r.Resize(, 6).Value = c.Offset(, -1).Resize(, 6).Value
            Set r = r.Offset(1)
        End If
    Next c
End Sub

下記のマクロを試したところ、
飛ばした先のSheetに10万行ほどのセルが飛んでしまうため、
15行ほどを制限にして、エクセルを飛ばしたいのですが、
どこに何を入れるか全くわかっていない状況です。

どなたかご教示いただけますと幸いです。

＜使用 Excel：Excel2007、使用 OS：unknown ＞

 事情よく分かりませんが、

     Sheets("Sheet1").Range("J5:O" & Rows.Count).Clear
 　　　　　　　　　　　　　　　　　　　　　　　　　↓　としてみたらどうなりますか？
     Sheets("Sheet1").Range("J5:O" & Rows.Count).ClearContents

（半平太） 2018/05/16(水) 20:32

コメント返信：

[ 一覧(最新更新順) ]

[[20180516184502]] 『マクロ加工していただきたいです。』（ほほ） ページの最後に飛ぶ

[[20180516184502]]　『マクロ加工していただきたいです。』（ほほ）　ページの最後に飛ぶ