エクセルでアルファベットと日本語の文字列を分割する方法

こんばんは。Wendy02です。 #3 のマクロの訂正です。しかし、次のマクロのほうがスピードは速いはずです。 '---------------------------------- '出力する列は？ Const OUTPUTCOL As String = "C" '---------------------------------- iCol = Columns(OUTPUTCOL).Column '← 入れ替え Set rng = Range("A1", Range("A65536").End(xlUp)) '←入れ替え Application.ScreenUpdating = False ↓ 以下のようになります。 Set rng = Range("A1", Range("A65536").End(xlUp)) iCol = Columns(OUTPUTCOL).Column -