回答編集履歴
3
誤字
answer
CHANGED
|
@@ -33,7 +33,7 @@
|
|
|
33
33
|
|
|
34
34
|
|
|
35
35
|
①suffix列には以下の数式を入れます。
|
|
36
|
-
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE([key列の
|
|
36
|
+
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE([key列のセルを指定],"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","")
|
|
37
37
|
|
|
38
38
|
上記数式により、0～9の文字が除去され、頭文字だけ取得できます。
|
|
39
39
|
|
2
追加
answer
CHANGED
|
@@ -25,4 +25,21 @@
|
|
|
25
25
|
=getStringCode([キーの値])
|
|
26
26
|
|
|
27
27
|
③上記の値でソートを行います。
|
|
28
|
-
※「数値に見えるものはすべて数値として並べ替えを行う」でソートする。
|
|
28
|
+
※「数値に見えるものはすべて数値として並べ替えを行う」でソートする。
|
|
29
|
+
|
|
30
|
+
---
|
|
31
|
+
やっぱり↓の方がVBA使わないし断然楽かも。
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
①suffix列には以下の数式を入れます。
|
|
36
|
+
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE([key列の同行のセルを指定],"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","")
|
|
37
|
+
|
|
38
|
+
上記数式により、0～9の文字が除去され、頭文字だけ取得できます。
|
|
39
|
+
|
|
40
|
+
②code列には以下の数式を入れます。
|
|
41
|
+
=RIGHT([key列のセルを指定],LEN([key列のセルを指定])-LEN([suffix列のセルを指定]))
|
|
42
|
+
|
|
43
|
+
上記数式により、頭文字を除いた数値部分だけ取得できます。
|
|
44
|
+
|
|
45
|
+
③②①の順でキー指定してソートするとご希望の順番に並び変わります。
|
1
コードミスの修正
answer
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
getStringCode = ""
|
|
14
14
|
If value = "" Then Exit Function
|
|
15
15
|
|
|
16
|
-
Dim i As Long
|
|
16
|
+
Dim i As Long
|
|
17
17
|
For i = 1 To Len(value)
|
|
18
18
|
getStringCode = getStringCode & Left(Asc(Mid(value, i, 1)) + format, Len(format))
|
|
19
19
|
Next
|