ExcelのVBAで・・・

質問

VBA初心者です。。
Excelのある列のセルの値が全角文字の場合に、
隣の列に全角カタカナに変換した値を転送するVBAがあります。
変換元の列の中に空白セルがあった時は変換先のセルに
文字があっても空白に置き換えたいのですが、方法がわかりません・・・。
使用しているVBAの内容は下の通りですが、どういう風に
修正すれば実現できるかアドバイスを頂けないでしょうか？
よろしくお願い致します！

　　Dim C As Range
　　For Each C In Range("E3", Range("E65536").End(xlUp))
　　　　If C.Value <> "" Then _
　　　　C.Offset(, 1).Value = Application.GetPhonetic(C.Value)
　　Next

回答No.1

o_chi_chi

基本ロジックをきちんと理解しないと。

もし変換元が空白でないなら
If C.Value <> "" Then _
変換先に全角カタカナに変換した値を設定する
　　　　C.Offset(, 1).Value = Application.GetPhonetic(C.Value)

変換先に文字があろうとなかろうと変換元が空白なら実行されません。

---
For Each C In Range("E3", Range("E65536").End(xlUp))
　C.Offset(, 1).Value = Application.GetPhonetic(C.Value)
Next

お礼

ご回答有り難うございました。