エクセルのマクロについて質問、次のマクロが欲しいです。「選択した範囲のセルに左から○○番目に半角スペースを挿入」
エクセルのマクロについて質問、次のマクロが欲しいです
(1)選択した範囲のセルに左から○○番目に半角スペースを挿入。
例：○○を1とした場合
1234 5678 9101
1235 5679 9102
1236 5680 9103
↓
1■234 5■678 9■101
1■235 5■679 9■102
1■236 5■680 9■103
＊■はスペースのつもりです
(2)選択した範囲のセルに右から○○番目に半角スペースを挿入。
例：○○を1とした場合
1234 5678 9101
1235 5679 9102
1236 5680 9103
↓
123■4 567■8 910■1
123■5 567■9 910■2
123■6 568■0 910■3
(3)選択セルの１番右の文字を上付き文字。
例：
1234
1235
1236
↓
1234←４を上付き
1235←５を上付き
1236←６を上付き
「選択した範囲のセル中にスペースやタブがあれば全部削除」
といった似たようなマクロを発見したのですが。これを利用してできないでしょうか？
Sub 空白除去()
Dim rng As Range
Dim str as String
For Each rng In Selection
' --- タブを除去
str = Replace(rng.Value, vbTab, "")
' --- 半角スペースを除去
str = Replace(str , " ", "")
' --- 全角スペースを除去
rng.Value = Replace(str , " ", "")
Next
End Sub
お力添えよろしくお願いします。
