回答編集履歴
1
H10は見出しでしたので、H11に修正
answer
CHANGED
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
こんな感じでしょうか？
|
|
2
2
|
|
|
3
3
|
```VB
|
|
4
|
-
Const TOPLEFT = "
|
|
4
|
+
Const TOPLEFT = "H11"
|
|
5
5
|
With ActiveSheet
|
|
6
6
|
.Range(TOPLEFT & ":R" & .Range(TOPLEFT).End(xlDown).Row).Sort key1:=Range(TOPLEFT)
|
|
7
7
|
End With
|