質問編集履歴
3
質問内容の訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,7 +4,7 @@
|
|
4
4
|
|
5
5
|
VBAで取り込んだcsvファイルのデータをソートしたいのですがうまくいきません。
|
6
6
|
|
7
|
-
3列目の数字をキーにしてソートを行ってからデータを扱いたいです。
|
7
|
+
3列目の数字をキーにして昇順ソートを行ってからデータを扱いたいです。
|
8
8
|
|
9
9
|
|
10
10
|
|
2
質問内容の訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -34,23 +34,7 @@
|
|
34
34
|
|
35
35
|
"園田","女","105","愛媛"
|
36
36
|
|
37
|
-
■ソートによって想定している結果
|
38
37
|
|
39
|
-
"前田","男","101","北海道"
|
40
|
-
|
41
|
-
"藤田","男","102","大阪"
|
42
|
-
|
43
|
-
"山田","女","103","福岡"
|
44
|
-
|
45
|
-
"栗田","男","103","東京"
|
46
|
-
|
47
|
-
"富田","男","104","神奈川"
|
48
|
-
|
49
|
-
"園田","女","105","愛媛"
|
50
|
-
|
51
|
-
"村田","男","106","沖縄"
|
52
|
-
|
53
|
-
"三田","女","106","愛媛"
|
54
38
|
|
55
39
|
### 該当のソースコード
|
56
40
|
|
1
構成を訂正
test
CHANGED
File without changes
|
test
CHANGED
@@ -8,11 +8,7 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
|
11
|
-
ソートを行った後、3列目の数字を重複しない形でカウントをとる予定です。
|
12
|
-
|
13
|
-
|
14
|
-
|
15
|
-
よろしければ手法やコードを教えて頂けませんでしょうか。
|
11
|
+
よろしければソートの手法やソートが実現できるコードを教えて頂けませんでしょうか。
|
16
12
|
|
17
13
|
お手数お掛けいたしますがご教授をよろしくお願いします。
|
18
14
|
|
@@ -38,7 +34,7 @@
|
|
38
34
|
|
39
35
|
"園田","女","105","愛媛"
|
40
36
|
|
41
|
-
■想定している結果
|
37
|
+
■ソートによって想定している結果
|
42
38
|
|
43
39
|
"前田","男","101","北海道"
|
44
40
|
|
@@ -98,6 +94,10 @@
|
|
98
94
|
|
99
95
|
|
100
96
|
|
97
|
+
'ここが焦点になります。
|
98
|
+
|
99
|
+
'********************************
|
100
|
+
|
101
101
|
'ここの処理でソートを試みてみました。
|
102
102
|
|
103
103
|
dataFile.sort
|
@@ -105,6 +105,8 @@
|
|
105
105
|
Key := Range("C1"), _
|
106
106
|
|
107
107
|
Order := xlAscending
|
108
|
+
|
109
|
+
'********************************
|
108
110
|
|
109
111
|
|
110
112
|
|
@@ -114,7 +116,7 @@
|
|
114
116
|
|
115
117
|
newRecord = fileDataTable(COLNUM - 1)
|
116
118
|
|
117
|
-
If agoRecord
|
119
|
+
If agoRecord = newRecord Then
|
118
120
|
|
119
121
|
cntStorage = cntStorage + 1
|
120
122
|
|
@@ -136,8 +138,6 @@
|
|
136
138
|
|
137
139
|
```
|
138
140
|
|
139
|
-
'cntStorage = 6
|
140
|
-
|
141
141
|
|
142
142
|
|
143
143
|
### 補足情報(FW/ツールのバージョンなど)
|