質問編集履歴
1
コード更新後の写真を入れました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
For I = 12 To lRow
|
|
30
30
|
|
|
31
|
-
If ws01.Cells(I, "B") Like "[" & kensaku & "]*"
|
|
31
|
+
If ws01.Cells(I, "B") Like "[[]" & kensaku & "[]]*"Then'シート「転記前総データ」から指定した材質に該当するデータを検索する。
|
|
32
32
|
ws02.Range("A" & mRow & ":P" & mRow).Value = ws01.Range("A" & I & ":P" & I).Value '検索条件に該当する材質をシート「成分（2020年1月1日~)」に転記する
|
|
33
33
|
mRow = mRow + 1 '転記する行に対して＋１加算する。
|
|
34
34
|
End If
|