2021-01-01から1年間の記事一覧
ユーザー定義関数を作る Function 英数(r As Range) As StringDim i As LongFor i = 1 To Len(r.Value)If Mid(r.Value, i, 1) Like "[0-9,A-z,+,-]" Then 英数 = 英数 & Mid(r.Value, i, 1) Next iEnd Function =英数(A1) とすると半角英数だけ抽出できる。…
ユーザー定義関数を作る Function 英数(r As Range) As StringDim i As LongFor i = 1 To Len(r.Value)If Mid(r.Value, i, 1) Like "[0-9,A-z,+,-]" Then 英数 = 英数 & Mid(r.Value, i, 1) Next iEnd Function =英数(A1) とすると半角英数だけ抽出できる。…