質問: x to 2 step -1 '最終行から2行目まで下から順に 'e列の値の先頭文字が"7b"でなかったら削除(空白の場合も削除) ●if .cells(i, 5) <> "7bb" then .rows(i).delete next '繰り返し end with end sub
回答: .range("a2:f" & j).value = myw のjの値が6になっているからでは?。 "a2:f6"分しか貼り付けていない。 貼り付け用に残っているのはn行もあるから、 .range("a2:f" & n).value = myw かな?。 あとは本人の確認待ちで。