Chr関数であいうえお順に

Chr関数であいうえお順に文字をエクセルに書き出そうとしたけど、
単純にはいかないのですかね？

Sub test()
Dim MyRow As Long
Dim i As Long

For MyRow = 1 To 51
Cells(MyRow, 1) = Chr(-32096 + i)
i = i + 2
Next MyRow

End Sub
これを実行すると、濁点が入ったりするのですが、
綺麗に「あ～ん」まで取得する方法はありますか？

複雑なコードを作るしかないのですかね？

No.1 ベストアンサー 回答者： okgoripon 回答日時： 2013/02/12 21:50

Chr(-32096 + i)

を

Mid("あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをん", i, 1)

あたりに変えればできませんかね？
文字列部分は別途変数に入れて分離しても可です。

この回答へのお礼

ありがとうございました。

お礼日時：2013/02/22 21:59

No.4 回答者： JazzCorp 回答日時： 2013/02/13 18:16

力仕事で、、、

Sub あいうえお()
Const あ As Integer = &H82A0
Const 削除行 = "77,66,60,59,57,56,54,53,51,50,48,47,40,38,36,34,33,31,29,27,25,23,21,19,17,15,13,11,8,6,4,2"
Dim Delrow As Variant
Dim kk As Long
Dim nn As Long
ActiveSheet.UsedRange.ClearContents
For nn = 1 To 82
Cells(nn, "A") = Chr(あ + nn - 1)
Next
Cells(70, "A") = ""
Cells(68, "A") = ""
Rows(80).Insert
Delrow = Split(削除行, ",")
For kk = LBound(Delrow) To UBound(Delrow)
nn = Delrow(kk)
Rows(nn).Delete
Next
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2013/02/22 22:00

No.3 回答者： nicotinism 回答日時： 2013/02/12 22:24

Sub a()

Dim i As Integer
For i = 177 To 221
Cells(i - 176, 1) = StrConv(Chr(i), vbHiragana + vbWide)
Next
End Sub

こんなのとか・・
や行とわ行がアレかもしれない。

この回答へのお礼

ありがとうございました。

お礼日時：2013/02/22 22:00

No.2 回答者： bin-chan 回答日時： 2013/02/12 22:02

Web用PCにExcel入れてないので試せてませんが。

半角カナをループで生成して、JIS関数で全角にするとどうなります？

この回答へのお礼

ありがとうございました。

お礼日時：2013/02/22 21:59