ちちんぷいぷい文字列になぁれ！

Excel の選択したセルを文字列に変換（置換）するマクロで、日経パソコン PConline 森本家のワークシートの記事。

'書式を固定して文字列に
Sub FormatString()
    For Each c In Selection         '選択範囲にすべて適用
        t = c.Text                  'セルの表示文字を保存
        c.NumberFormat = "@"        'セルを文字列モードに
        c.Value = t                 '保存した文字列を戻す
    Next                            'ここまで繰り返す
End Sub

スッゲー簡単で超ビックリだ。これなら半角文字列変換もできるかも‥‥出来た。

'半角文字に変換（置換）する
Sub HankakuHenkan()
    For Each c In Selection             '選択範囲にすべて適用
        t = c.Text                      'セルの表示文字を保存
        c.NumberFormat = "@"            'セルを文字列モードに
        c.Value = StrConv(t, vbNarrow)
    Next                                'ここまで繰り返す
End Sub