ふりがなを一括消去する

 

Sub test()
    ’ ふりがなを一括削除する
    Dim myR As Range
    
    Set myR = Range("A2").CurrentRegion

     myR.Value = myR.Value
    
End Sub

 

実行結果

 

 

Valueプロパティには、ふりなが情報まで取り扱わないので、「myR.Value = myR.Value」で、値を再代入することによって、結果的にふりがな削除することになります。

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事