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

編集履歴

回答編集履歴

4

コード修正

2019/07/05 08:23

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -17,5 +17,4 @@
17
17
 
18
18
  TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
19
19
  TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
20
-
21
20
  ```

3

コード修正

2019/07/05 08:22

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -15,7 +15,7 @@
15
15
  Dim TargetRng As Range
16
16
  Set TargetRng = Ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
17
17
 
18
- Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
18
+ TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
19
- Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
19
+ TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
20
20
 
21
21
  ```

2

コード修正

2019/07/05 08:21

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -15,7 +15,7 @@
15
15
  Dim TargetRng As Range
16
16
  Set TargetRng = Ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
17
17
 
18
- Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2).Value
18
+ Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2").Value
19
- Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2).Value
19
+ Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2").Value
20
20
 
21
21
  ```

1

コード修正

2019/07/05 07:14

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -15,7 +15,7 @@
15
15
  Dim TargetRng As Range
16
16
  Set TargetRng = Ws2.Cells(Rows.Count, "A").End(xlUp).Offset(1)
17
17
 
18
- Ws2.TargetRng.Resize(4).Value = Ws1.Range("A2:D2).Value
18
+ Ws2.TargetRng.Resize(,4).Value = Ws1.Range("A2:D2).Value
19
19
  Ws2.TargetRng.Resize(,2).Offset(,5).Value = Ws1.Range("F2:G2).Value
20
20
 
21
21
  ```