|
▼=================================================================
>Sub test3()
> Dim idx As Long, jdx As Long
> Dim rarray As Variant
> rarray = Range("a1:a3").Value
> Dim mycl As Variant
> For idx = LBound(rarray, 1) To UBound(rarray, 1)
> For jdx = LBound(rarray, 2) To UBound(rarray, 2)
> rarray(idx, jdx) = StrConv(rarray(idx, jdx), vbKatakana)
> Next
> Next
> Range("a1:a3").Value = rarray
>End Sub
>ichinoseさま、
>再々ありがとうございます。教えてくださった上記の方法で各段に早くなりました。このとき、別のセル例えばb1:b3には半角のカタカナで入れるのはどうしたらよいのでしょう?新しく配列を宣言したり付け足したりしてみましたがうまくいきませんでした。
|
|