teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

より具体的に表現を変えました

2020/04/11 09:09

投稿

Miii
Miii

スコア30

title CHANGED
File without changes
body CHANGED
@@ -3,7 +3,7 @@
3
3
  **[元データ例]**
4
4
  ![イメージ説明](3b71755b544825387139768fd7787d33.png)
5
5
 
6
- **[結果]**
6
+ **[望む結果]**
7
7
  ![イメージ説明](4ecad78cc3ce62c89dc21996b9c38f54.png)
8
8
 
9
9
  以下、まだ昇順のコードまではかけていません。

1

コード追記

2020/04/11 09:08

投稿

Miii
Miii

スコア30

title CHANGED
File without changes
body CHANGED
@@ -6,4 +6,40 @@
6
6
  **[結果]**
7
7
  ![イメージ説明](4ecad78cc3ce62c89dc21996b9c38f54.png)
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
  よろしくお願いいたします。