質問編集履歴
1
シート名が一部間違っていたので変更いたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
|
|
59
59
|
'支店を、フィルタする
|
|
60
60
|
|
|
61
|
-
Worksheets("Sheet
|
|
61
|
+
Worksheets("Sheet1").Range("B1").AutoFilter 2, Data(i, 1)
|
|
62
62
|
|
|
63
63
|
'別シートを追加
|
|
64
64
|
|
|
@@ -98,6 +98,20 @@
|
|
|
98
98
|
|
|
99
99
|
見つからず、どうしてこれが成功していたのかわからない状態です・・・
|
|
100
100
|
|
|
101
|
+
これが間違っているのかなぁと思うのですが他の書き方がわからず・・・
|
|
102
|
+
|
|
103
|
+
|
|
104
|
+
|
|
105
|
+
```
|
|
106
|
+
|
|
107
|
+
Data = .Range(.Range("A1"), .Range("A1").End(xlDown))
|
|
108
|
+
|
|
109
|
+
```
|
|
110
|
+
|
|
111
|
+
|
|
112
|
+
|
|
113
|
+
|
|
114
|
+
|
|
101
115
|
|
|
102
116
|
|
|
103
117
|
# 補足情報（FW/ツールのバージョンなど）
|