質問編集履歴
1
コードと実行結果を追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,11 +19,13 @@
|
|
|
19
19
|
Dim ws2 As Worksheet
|
|
20
20
|
|
|
21
21
|
Set ws1 = Worksheets("sheet1")
|
|
22
|
-
Set ws2 =
|
|
22
|
+
Set ws2 = ActiveSheet '追加項目
|
|
23
23
|
Set number = ws2.Range("C2")
|
|
24
24
|
Set number2 = ws2.Range("C3")
|
|
25
25
|
Set number3 = ws2.Range("C4")
|
|
26
26
|
|
|
27
|
+
ws2.Name = ws2.Range("C1") '追加項目
|
|
28
|
+
|
|
27
29
|
lastline = ws1.Cells(Rows.Count, "B").End(xlUp).Row 'ｼｰﾄ1 B列のｾﾙ入力済最終行を定義
|
|
28
30
|
|
|
29
31
|
Set result = ws1.Range(ws1.Cells(4, 2), ws1.Cells(lastline, 2)).Find(number, lookat:=xlWhole)
|
|
@@ -55,11 +57,13 @@
|
|
|
55
57
|
ws1.Cells(result.Row, 3).Value = number2.Value
|
|
56
58
|
ws1.Cells(result.Row, 4).Value = number3.Value
|
|
57
59
|
|
|
58
|
-
End If
|
|
60
|
+
End If
|
|
61
|
+
|
|
62
|
+
|
|
63
|
+
|
|
59
64
|
End Sub
|
|
60
|
-
|
|
61
65
|
```
|
|
62
|
-
|
|
66
|
+
|
|
63
67
|
### 試したこと
|
|
64
68
|
|
|
65
69
|
sheet2をｱｸﾃｨﾌﾞｼｰﾄ選択して、名前を変更しましたが、ｼｰﾄ名変更後にはｴﾗｰにより、
|