質問編集履歴

2

2021/09/29 06:11

投稿

tasukete----
tasukete----

スコア1

test CHANGED
File without changes
test CHANGED
@@ -28,8 +28,14 @@
28
28
 
29
29
 
30
30
 
31
+
32
+
33
+
34
+
35
+
36
+
31
37
  End Sub
32
38
 
33
- コード
39
+
34
40
 
35
41
  ```

1

2021/09/29 06:11

投稿

tasukete----
tasukete----

スコア1

test CHANGED
File without changes
test CHANGED
@@ -11,3 +11,25 @@
11
11
  お力添え頂ければ幸いです。
12
12
 
13
13
  よろしくお願いします。
14
+
15
+ ```
16
+
17
+ Sub 突合()
18
+
19
+ Dim cellRange1 As Range
20
+
21
+ Dim cellRange2 As Range
22
+
23
+
24
+
25
+ Set cellRange1=Application.InputBox(“範囲選択”,”指定”,Type:=8)
26
+
27
+ Set cellRange2=Application.InputBox(“範囲選択”,”指定”,Type:=8)
28
+
29
+
30
+
31
+ End Sub
32
+
33
+ コード
34
+
35
+ ```