次の空の行にコピーして貼り付けます

"copySheet"からBX2をBX400にコピーし、 "pasteSheet"の列Aの最初の空の行に貼り付けます。次の空の行にコピーして貼り付けます

copySheet.Range("BX2:BX400").Copy 
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

次に、列Bの最初の空の行にどのコードを貼り付けますか？

出典

2016-05-10 Yigit Tanverdi

あなたの '.Cells（）'メソッドで '1'を' 2'に変更してください。これは列番号なので、1 = A; 2 = Bなど... –

値を貼り付けるだけの場合は、直接値転送がクリップボードに関係しないため、優先されます。

with copySheet.Range("BX2:BX400") 
    pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value 
end with

出典

2016-05-10 08:58:24 Jeeped

ありがとうございます。これは、私はB列に物事を貼りたいだけで、私は例えば列Cを別の列をコピーして、列Dに貼り付けようとすると、あなたのコードでBをDに変更しようとしません。それは列Dに貼り付けるのではなく、Eのように別の列に貼り付けます。なぜこれが起こるか知っていますか？ –

次の空の行にコピーして貼り付けます

答えて

関連する問題