エクセルVBAのコードを簡単に表現したい
お世話になっています。
エクセルVBAでコードを書いたのですが、なにぶん初心者のためゴテゴテしたものになってしまいました。
A列にはA2からA11まで15文字以内の文字列が入っています。
同じ行のB列からP列に、濁点も1文字として1セルに1文字づつ抜き出すようにコードを書きました。
以下です。
Sub test()
Dim i As Integer
Dim m As Integer
Dim s1 As Worksheet
Set s1 = Sheets("sheet1")
For i = 2 To 11
For m = 1 To 15
変換 = s1.Cells(i, 1)
変換 = StrConv(変換, vbKatakana)
変換 = Application.WorksheetFunction.Asc(変換)
変換 = Mid(変換, m, 1)
変換 = StrConv(変換, vbWide)
s1.Cells(i, m + 1) = StrConv(変換, vbHiragana)
Next
Next
End Sub
そこで質問なのですが、上記のコードをもっとスマートに表現するとどのようなコードになるのでしょうか。(特に「変換」が連なっているところ)
よろしくお願いします。
お礼
shitaba様 早速のご回答ありがとうございます。 GoogleAppScript ではインターネットエクスプローラは使用でき無いのですね? 自力ではJavascriptに変換できそうにないので、エクセルがプリインストールされたPCの購入を検討したいと思います。