質問編集履歴
1
依頼内容修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,20 +1,21 @@
|
|
|
1
1
|
①Sheet1の品番とSheet2の品番が一致すれば、Sheet2の日付に本日を入れる
|
|
2
|
-
②Sheet1の品番がSheet2に存在しなければ、
|
|
2
|
+
②Sheet1の品番がSheet2に存在しなければ、Sheet2の最終行をコピーして、Sheet2の最終行＋１に貼り付ける
|
|
3
|
+
Sheet1の品番、名称、コメントをSheet2の該当列に上書きする
|
|
4
|
+
※数式をコピーしたいので、上記手順をとっています。
|
|
3
5
|
|
|
4
6
|
Sheet１
|
|
5
|
-
品番｜名称｜コメント｜
|
|
7
|
+
品番｜名称｜コメント｜
|
|
6
|
-
001｜aaa｜あああ｜
|
|
8
|
+
001｜aaa｜あああ｜
|
|
7
|
-
003｜ccc｜ううう｜
|
|
9
|
+
003｜ccc｜ううう｜
|
|
8
|
-
004｜ddd｜えええ｜
|
|
10
|
+
004｜ddd｜えええ｜
|
|
9
|
-
005｜eee｜かかか｜
|
|
11
|
+
005｜eee｜かかか｜
|
|
10
12
|
|
|
11
|
-
|
|
12
13
|
Sheet2
|
|
13
|
-
日付｜品番｜名称｜コメント｜数式
|
|
14
|
+
日付｜品番｜名称｜コメント｜数式｜数式2｜・・・続く
|
|
14
|
-
0512｜001｜aaa｜あああ｜数式
|
|
15
|
+
0512｜001｜aaa｜あああ｜数式｜数式2｜・・・続く
|
|
15
|
-
｜002｜bbb｜いいい｜数式
|
|
16
|
+
｜002｜bbb｜いいい｜数式｜数式2｜・・・続く
|
|
16
|
-
0512｜003｜ccc｜ううう｜数式
|
|
17
|
+
0512｜003｜ccc｜ううう｜数式｜数式2｜・・・続く
|
|
17
|
-
0512｜004｜ddd｜えええ｜数式
|
|
18
|
+
0512｜004｜ddd｜えええ｜数式｜数式2｜・・・続く
|
|
18
19
|
|
|
19
20
|
下記コードを作成してみたのですが、①はうまくいくのですが、②がうまくできません。
|
|
20
21
|
マクロ勉強中なのですが、ご教授ください。
|
|
@@ -36,6 +37,9 @@
|
|
|
36
37
|
Else
|
|
37
38
|
'品番が一致しなければ、最終行をコピーして最終行＋１行目に貼り付けたい
|
|
38
39
|
ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Rows.Copy Destination:=n
|
|
40
|
+
ws2.cells(j,2).value = ws1.cells(i,1).value
|
|
41
|
+
ws2.cells(j,3).value = ws1.cells(i,2).value
|
|
42
|
+
ws2.cells(j,4).value = ws1.cells(i,3).value
|
|
39
43
|
End If
|
|
40
44
|
|
|
41
45
|
Exit For
|