|
『book2』のsheet1には
1行目は見出し行で、2行目以降にデータがあります。
これをある条件でオートフィルタしまして
条件に合うデータを『book1』のsheet1に
見出し行を除いて可視セルをコピーするマクロを組みました。
(下のマクロです)
このマクロですとデータがない時に
2行目以降の全データがコピーされてしまいます。
なぜこのようになるのか分かりません・・・。
どのように対処(回避)すればよろしいですか?
どうか宜しくお願いします。
Sub test()
’book2は既にオートフィルタされているものとします。
Windows("book2.xls").Activate
Set R = Worksheets("sheet1").Range("a1").CurrentRegion
With R
.Resize(.Rows.Count - 1).Offset(1).Copy
Windows("book1.xls").Activate
Worksheets("sheet1").Range("a1").PasteSpecial Paste:=xlPasteValues
End With
End Sub
|
|