回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -5,4 +5,12 @@
|
|
|
5
5
|
Sheets("A").Select
|
|
6
6
|
Range(Range("B3"), Range("B3").SpecialCells(xlLastCell)).Sort _
|
|
7
7
|
key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes
|
|
8
|
+
```
|
|
9
|
+
|
|
10
|
+
SpecialCells(xlLastCell) だと他に表があるとそれも含まれるので、下記の方がいいかな。
|
|
11
|
+
|
|
12
|
+
```vba
|
|
13
|
+
Sheets("A").Select
|
|
14
|
+
Intersect(Range("B3").CurrentRegion, Range("B3:IV65536")).Sort _
|
|
15
|
+
key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes
|
|
8
16
|
```
|