teratail
回答率
85.47%
質問するログイン新規登録
トップVBAに関する質問エクセル　特定の列以外をコピー貼り付けしたい

編集履歴

回答編集履歴

4

コード修正

2019/07/05 08:23

投稿

hatena19
hatena19

スコア33775

test CHANGED
@@ -36,6 +36,4 @@
36
36
 
37
37
  TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
38
38
 
39
-
40
-
41
39
  ```

3

コード修正

2019/07/05 08:22

投稿

hatena19
hatena19

スコア33775

test CHANGED
@@ -32,9 +32,9 @@
32
32
 
33
33
 
34
34
 
35
- Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
35
+ TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
36
36
 
37
- Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
37
+ TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
38
38
 
39
39
 
40
40
 

2

コード修正

2019/07/05 08:21

投稿

hatena19
hatena19

スコア33775

test CHANGED
@@ -32,9 +32,9 @@
32
32
 
33
33
 
34
34
 
35
- Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2).Value
35
+ Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
36
36
 
37
- Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2).Value
37
+ Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
38
38
 
39
39
 
40
40
 

1

コード修正

2019/07/05 07:14

投稿

hatena19
hatena19

スコア33775

test CHANGED
@@ -32,7 +32,7 @@
32
32
 
33
33
 
34
34
 
35
- Ws2.TargetRng.Resize(4).Value = Ws1.Range("A2:D2).Value
35
+ Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2).Value
36
36
 
37
37
  Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2).Value
38
38