質問編集履歴
1
依頼内容修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,36 +1,38 @@
|
|
|
1
1
|
①Sheet1の品番とSheet2の品番が一致すれば、Sheet2の日付に本日を入れる
|
|
2
2
|
|
|
3
|
-
②Sheet1の品番がSheet2に存在しなければ、
|
|
3
|
+
②Sheet1の品番がSheet2に存在しなければ、Sheet2の最終行をコピーして、Sheet2の最終行＋１に貼り付ける
|
|
4
|
+
|
|
5
|
+
Sheet1の品番、名称、コメントをSheet2の該当列に上書きする
|
|
6
|
+
|
|
7
|
+
※数式をコピーしたいので、上記手順をとっています。
|
|
4
8
|
|
|
5
9
|
|
|
6
10
|
|
|
7
11
|
Sheet１
|
|
8
12
|
|
|
9
|
-
品番｜名称｜コメント｜
|
|
13
|
+
品番｜名称｜コメント｜
|
|
10
14
|
|
|
11
|
-
001｜aaa｜あああ｜
|
|
15
|
+
001｜aaa｜あああ｜
|
|
12
16
|
|
|
13
|
-
003｜ccc｜ううう｜
|
|
17
|
+
003｜ccc｜ううう｜
|
|
14
18
|
|
|
15
|
-
004｜ddd｜えええ｜
|
|
19
|
+
004｜ddd｜えええ｜
|
|
16
20
|
|
|
17
|
-
005｜eee｜かかか｜
|
|
21
|
+
005｜eee｜かかか｜
|
|
18
|
-
|
|
19
|
-
|
|
20
22
|
|
|
21
23
|
|
|
22
24
|
|
|
23
25
|
Sheet2
|
|
24
26
|
|
|
25
|
-
日付｜品番｜名称｜コメント｜数式
|
|
27
|
+
日付｜品番｜名称｜コメント｜数式｜数式2｜・・・続く
|
|
26
28
|
|
|
27
|
-
0512｜001｜aaa｜あああ｜数式
|
|
29
|
+
0512｜001｜aaa｜あああ｜数式｜数式2｜・・・続く
|
|
28
30
|
|
|
29
|
-
｜002｜bbb｜いいい｜数式
|
|
31
|
+
｜002｜bbb｜いいい｜数式｜数式2｜・・・続く
|
|
30
32
|
|
|
31
|
-
0512｜003｜ccc｜ううう｜数式
|
|
33
|
+
0512｜003｜ccc｜ううう｜数式｜数式2｜・・・続く
|
|
32
34
|
|
|
33
|
-
0512｜004｜ddd｜えええ｜数式
|
|
35
|
+
0512｜004｜ddd｜えええ｜数式｜数式2｜・・・続く
|
|
34
36
|
|
|
35
37
|
|
|
36
38
|
|
|
@@ -74,6 +76,12 @@
|
|
|
74
76
|
|
|
75
77
|
ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Rows.Copy Destination:=n
|
|
76
78
|
|
|
79
|
+
ws2.cells(j,2).value = ws1.cells(i,1).value
|
|
80
|
+
|
|
81
|
+
ws2.cells(j,3).value = ws1.cells(i,2).value
|
|
82
|
+
|
|
83
|
+
ws2.cells(j,4).value = ws1.cells(i,3).value
|
|
84
|
+
|
|
77
85
|
End If
|
|
78
86
|
|
|
79
87
|
|