回答編集履歴
1
追記
test
CHANGED
|
@@ -1,6 +1,8 @@
|
|
|
1
1
|
こんな感じでしょうか
|
|
2
2
|
|
|
3
3
|
```vba
|
|
4
|
+
|
|
5
|
+
Function calc(Shihanki)
|
|
4
6
|
|
|
5
7
|
Sheets(Array(Shihanki(1, 1), Shihanki(2, 1), Shihanki(3, 1), Shihanki(4, 1))).Select
|
|
6
8
|
|
|
@@ -8,4 +10,12 @@
|
|
|
8
10
|
|
|
9
11
|
Columns("H:H").PasteSpecial
|
|
10
12
|
|
|
13
|
+
End Function
|
|
14
|
+
|
|
11
15
|
```
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
ファンクションで挟むだけですが、当方では問題なく指定のシートすべてで反映されました。
|
|
20
|
+
|
|
21
|
+
再度ご確認ください。
|