質問編集履歴
2
より具体的に表現を変えました
title
CHANGED
File without changes
|
body
CHANGED
@@ -3,7 +3,7 @@
|
|
3
3
|
**[元データ例]**
|
4
4
|

|
5
5
|
|
6
|
-
**[結果]**
|
6
|
+
**[望む結果]**
|
7
7
|

|
8
8
|
|
9
9
|
以下、まだ昇順のコードまではかけていません。
|
1
コード追記
title
CHANGED
File without changes
|
body
CHANGED
@@ -6,4 +6,40 @@
|
|
6
6
|
**[結果]**
|
7
7
|

|
8
8
|
|
9
|
+
以下、まだ昇順のコードまではかけていません。
|
10
|
+
|
11
|
+
```VBA
|
12
|
+
Sub 昇順()
|
13
|
+
|
14
|
+
Dim 配列
|
15
|
+
Dim 行(200)
|
16
|
+
Dim r As Long
|
17
|
+
Dim p As Integer
|
18
|
+
Dim 名前(100000) As Variant
|
19
|
+
|
20
|
+
Dim 最終行 As Long
|
21
|
+
|
22
|
+
Application.ScreenUpdating = False
|
23
|
+
|
24
|
+
Sheets("sheet1").Select
|
25
|
+
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
|
26
|
+
配列 = Range("A1:D" & 最終行)
|
27
|
+
|
28
|
+
For r = 1 To 最終行
|
29
|
+
名前(r) = 配列(r, 1)
|
30
|
+
|
31
|
+
If 名前(r) <> 名前(r - 1) Then
|
32
|
+
p = p + 1
|
33
|
+
行(p) = r
|
34
|
+
End If
|
35
|
+
If r = 最終行 Then
|
36
|
+
p = p + 1
|
37
|
+
行(p) = r
|
38
|
+
End If
|
39
|
+
Next
|
40
|
+
|
41
|
+
Application.ScreenUpdating = True
|
42
|
+
|
43
|
+
End Sub
|
44
|
+
```
|
9
45
|
よろしくお願いいたします。
|