回答編集履歴
2
言い過ぎたか
answer
CHANGED
|
@@ -15,5 +15,4 @@
|
|
|
15
15
|
```vba
|
|
16
16
|
test_main.Worksheets(sh_fm).Range(ad_kb_fm).Offset(row - 1, 0).Copy
|
|
17
17
|
test_Update.Worksheets(sh_to).Range(ad_kb_to).Offset(rowcnt - 1, 0).PasteSpecial Paste:=xlPasteValues
|
|
18
|
-
```
|
|
18
|
+
```
|
|
19
|
-
できれば一からVBAを勉強された方が良いと思います。
|
1
追記
answer
CHANGED
|
@@ -8,4 +8,12 @@
|
|
|
8
8
|
```vba
|
|
9
9
|
Range("A1").Copy '貼り付け元
|
|
10
10
|
Range("A2").PasteSpecial Paste:=xlPasteValues '貼り付け先
|
|
11
|
-
```
|
|
11
|
+
```
|
|
12
|
+
Range("A1")が貼り付け元の範囲
|
|
13
|
+
Range("A2")が貼り付け先の範囲
|
|
14
|
+
なのでそれを当てはめるとこうなります。
|
|
15
|
+
```vba
|
|
16
|
+
test_main.Worksheets(sh_fm).Range(ad_kb_fm).Offset(row - 1, 0).Copy
|
|
17
|
+
test_Update.Worksheets(sh_to).Range(ad_kb_to).Offset(rowcnt - 1, 0).PasteSpecial Paste:=xlPasteValues
|
|
18
|
+
```
|
|
19
|
+
できれば一からVBAを勉強された方が良いと思います。
|