エクセル BVAについて

質問

"Sheet1"のA1からD１（数式あり）の値のみを
"Sheet2"のE列からH列の空白セルに上詰めでコピーするには
どのようにしたらよいのでしょうか。

よろしくお願いします。

回答No.2

mar00 · ベストアンサー

"Sheet2"の1行目には列の項目が入っているものと思い
2行目から始まるようにしていました。
1行目から始まるように修正しました。

Sub Macro1()
Sheets("Sheet1").Select
Range("A1:D1").Copy
Sheets("Sheet2").Select
If Range("E1") = "" Then
GYOU = -1
End If
Range("E" & Cells(Rows.Count, 5).End(xlUp).Row + 1 + GYOU).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

お礼

不十分な説明で申し訳ありませんでした。
完璧です。
有難うございました。

回答No.1

mar00

Sub Macro1()
Sheets("Sheet1").Select
Range("A1:D1").Copy
Sheets("Sheet2").Select
Range("E" & Cells(Rows.Count, 5).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

お礼

有難うございます。

入力して実行してみたのですが、
"Sheet2"のA列からD列に値があると上詰めでコピーされません。

私の入力ミスでしょうか。

補足

今更ですが、BVAではなくVBAでした。
また、再質問はこちらから行うみたいで
重ね重ね申し訳ありません。
どうぞよろしくお願いします。