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 · ベストアンサー

Chr(-32096 + i)

を

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

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

お礼

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

回答No.4

K Kazz（@JazzCorp）

力仕事で、、、
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

お礼

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

回答No.3

nicotinism

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

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

お礼

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

回答No.2

bin-chan

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

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

お礼

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