|
質問(煮詰まった) さん、こんにちわ。
> 一覧表上に
> ああああああ03・10.pdf
> 050114いいいいいい.pdf
> の一覧表があり、名称順に並び替えをしたいのですが
> この際に不要な日付と記号は除き
>
> ああああああ
> いいいいいい
セルに入っているものとして、
> サンプル宜しくお願いします。
ひらがな、カタカナの部分だけ取り出す関数にしてみました。
Function HKGet(arg1 As String) As String
Dim a1 As String, a2 As String
For II = 1 To Len(arg1)
a1 = Mid(arg1, II, 1) 'II文字目
'半角文字コードで判定(濁点等があるかもしれないので更に左のみ)
Select Case Left(StrConv(a1, vbKatakana + vbNarrow), 1)
Case "ヲ" To "ン" '半角文字のコード表で意味を確認してみてね
a2 = a2 + a1
End Select
Next
'関数の結果
HKGet = a2
End Function
こんな感じです。
A1セルに、ああああああ03・10.pdf
B1セルに=HKGet(A1)と入れてみてください。
|
|