回答編集履歴

1

追記

2020/05/10 09:05

投稿

meg_
meg_

スコア10760

test CHANGED
@@ -1 +1,11 @@
1
1
  ``If Not (Num Is Nothing) Then``を``If Not Range1 Is Nothing Then``に変えたらどうでしょうか?
2
+
3
+
4
+
5
+ ---
6
+
7
+
8
+
9
+ 【追記】
10
+
11
+ ``Set Range2 = Param2.Worksheets("パラメータ").Column("A").Find("設定値" & "-" Num)``を``Set Range2 = Param2.Worksheets("パラメータ").Column("A").Find("設定値" & "-" & Num)``に変えたらどうでしょうか? ※&を追加