質問編集履歴

2

プライバシーのため変更

2021/07/29 04:04

投稿

chimmy_omn
chimmy_omn

スコア4

test CHANGED
File without changes
test CHANGED
@@ -1,24 +1,18 @@
1
1
  ### 前提・実現したいこと
2
2
 
3
3
 
4
-
5
- ![イメージ説明](94171791aeb6e5c64c337d4730ed3c58.png)
6
-
7
- ![イメージ説明](76876b439ac1b3dcaca5777421489410.png)
8
-
9
- ![イメージ説明](4836d4a1c37ad423e6f76d4aebc2d9c2.png)
10
4
 
11
5
 
12
6
 
13
7
  VBA初心者です。
14
8
 
15
- 今回、【計算】というシートを基に別シートへ値をコピペするというVBAを作成したいです。
9
+ 今回、【計算】というシートを基に別シートへ値をコピペするというVBAを作成したいです。
16
10
 
17
- 【計算用】のC列[利用スポット名]もしくはD列[会場]を絞り、その絞った単語のシートにコピペします。
11
+ 【計算用】のC列[利用場所]もしくはD列[会場]を絞り、その絞った単語のシートにコピペします。
18
12
 
19
13
 
20
14
 
21
- 例えば、C列[利用スポット]の「新宿」でC列を絞り、その絞った名前のシート
15
+ 例えば、C列[利用場所]の「新宿」でC列を絞り、その絞った名前のシート
22
16
 
23
17
  (この場合は【新宿】というシート)にその決まった各項目ごとを各場所へコピペしたいのです。
24
18
 
@@ -26,7 +20,7 @@
26
20
 
27
21
  なくなっていたりと、絞った後の行をそのまま全コピーできません、、)
28
22
 
29
- 逆にD列[会場]で「東京」を絞るとまた少しコピー先の項目が少し変わるのでその項目通りに入れていきたいです。
23
+ 逆にD列[会場]で「東京」を絞るとまた少しコピー先の項目が少し変わるのでその項目通りに入れていきたいです。
30
24
 
31
25
  この【計算用】シートの内容は各都市各県庁所在地5件以上入ることもあり、
32
26
 
@@ -70,7 +64,7 @@
70
64
 
71
65
 
72
66
 
73
- Set Sht1 = Sheets("計算")
67
+ Set Sht1 = Sheets("計算")
74
68
 
75
69
  Set Sht2 = Sheets("新宿")
76
70
 
@@ -109,9 +103,3 @@
109
103
 
110
104
 
111
105
  使用しているのはExcel2013です。
112
-
113
-
114
-
115
- 実行後の写真です↓
116
-
117
- ![イメージ説明](cbd7dacfb9b45944448665352b0f8a94.png)

1

写真の追加

2021/07/29 04:04

投稿

chimmy_omn
chimmy_omn

スコア4

test CHANGED
File without changes
test CHANGED
@@ -109,3 +109,9 @@
109
109
 
110
110
 
111
111
  使用しているのはExcel2013です。
112
+
113
+
114
+
115
+ 実行後の写真です↓
116
+
117
+ ![イメージ説明](cbd7dacfb9b45944448665352b0f8a94.png)