エクセル　特定の列以外をコピー貼り付けしたい

コピー先のある特定の列に数式が入っており、その列を除外して、一行ずつコピーしたいのですが、
以下の式では、コピー元（データ移行）のF列が、
コピー先（指定のセルの値のシート）のE列にコピーされてしまします。

どのように直すのが適切なのかわかりません。

コピー元（データ移行シート）の情報を、
データ移行シートI2の値のシートの最終行にコピーします。

コピー先シートのE列に数式が入っているので、E列はそのまま生かしたいです。

よろしくお願いいたします。

Sheets("データ移行").Select 'データ移行シートのA2D2F2G2コピー
Range("A2:D2,F2:G2").Select
Selection.Copy

Dim str As String 'データ移行シートのI2セルの値のシートを開く
str = Worksheets("データ移行").Range("I2")
Worksheets(str).Select

最終 = Cells(Rows.Count, "A").End(xlUp).Row + 1 '各シートの最終行に貼り付け
Range("A" & 最終).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

行動規範の内容に同意します

回答1件

ベストアンサー

A2:D2 と F2:G2 をそれぞれ分けてコピーするしかないと思います。

値だけ（xlPasteValues）のコピーなら、SelectしてCopy、Paste しなくても
値の代入の方がシンプルだし高速です。

コード例

vba
1Dim ws1 As WorkSheet
2Set Ws1 = Sheets("データ移行")
3
4Dim ws2 As WorkSheet
5Set Ws2 = Sheets(Ws1.Range("I2").Value)
6
7Dim TargetRng As Range
8Set TargetRng = Ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
9
10TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
11TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value

投稿2019/07/05 05:35

編集2019/07/05 08:23

hatena19

総合スコア33715

mi07

2019/07/05 06:09

ご回答ありがとうございます。あまり詳しくないので、申し訳ないのですが、張り付けてみたら、以下の部分が構文エラーとなります Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2).Value Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2).Value 後ほど、自分でも解析してみようかと思いますが、、、よろしくお願いします。