質問編集履歴
3
画像の差し替え
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -15,6 +15,8 @@
|
|
|
15
15
|
|
|
16
16
|
|
|
17
17
|
申し訳ありませんが、ヒントだけでも頂けますと嬉しいです。
|
|
18
|
+
|
|
19
|
+
説明]
|
|
18
20
|
|
|
19
21
|
|
|
20
22
|
|
2
画像の差し替え
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,8 +11,6 @@
|
|
|
11
11
|
①キーは「住所」とする。
|
|
12
12
|
|
|
13
13
|
②抽出するデータは、「店舗名」と「責任者名」とする。
|
|
14
|
-
|
|
15
|
-
](7de593f68f98e1d03a05556a0cfd72e8.jpeg)
|
|
16
14
|
|
|
17
15
|
|
|
18
16
|
|
1
### 試したことの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,6 +54,32 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
+
Sub 転記マクロ()
|
|
58
|
+
|
|
59
|
+
'①シートを変数にセット
|
|
60
|
+
|
|
61
|
+
Dim ws1 As Worksheet
|
|
62
|
+
|
|
63
|
+
Dim ws2 As Worksheet
|
|
64
|
+
|
|
65
|
+
Set ws1 = Worksheets("１．店舗情報")
|
|
66
|
+
|
|
67
|
+
Set ws2 = Worksheets("２．店舗情報(抽出)")
|
|
68
|
+
|
|
69
|
+
|
|
70
|
+
|
|
71
|
+
'②シートを指定してデータを転記
|
|
72
|
+
|
|
73
|
+
ws2.Range("D4:D7").Value = ws1.Range("D4:D7").Value
|
|
74
|
+
|
|
75
|
+
ws2.Range("E4:E7").Value = ws1.Range("DE:E7").Value
|
|
76
|
+
|
|
77
|
+
End Sub
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
|
|
82
|
+
|
|
57
83
|
|
|
58
84
|
|
|
59
85
|
### 補足情報（FW/ツールのバージョンなど）
|