VBAでExcelの上付き文字を削除する

Question

VBAを使用してExcelファイル（.xlsx）内のスーパースクリプトで記述された文字を削除するにはどうすればよいですか？

これらは、一部のセルにのみ表示され、このセルの他の部分（上付き文字では書かれていません）は変更しません。

テキストを他のプログラムにコピーすると、一部の文字が上付き文字であることを忘れているため、Excelで行う必要があります。

Answer 1

コードを実行するのに少し時間がかかりますが、私は上付き文字を削除するコードを含めたり、それを「正規化」しています。

次は上付き文字を取り、それらを削除します。

Sub DeleteSuperScript() 
    Dim c As Range 

    Application.ScreenUpdating = False 

    For Each c In ActiveSheet.UsedRange 
     For i = 1 To Len(c) 
      If c.Characters(i, 1).Font.SuperScript Then 
       c.Characters(i, 1).Delete 
       i = i - 1 
      End If 
     Next i 
    Next c 

    Application.ScreenUpdating = True 

End Sub 

次は上付き文字を取り、それらを「正規化」：あなたは** **文字を削除する

Sub NormalizeSuperScript() 
    Dim c As Range 

    Application.ScreenUpdating = False 

    For Each c In ActiveSheet.UsedRange 
     For i = 1 To Len(c) 
      If c.Characters(i, 1).Font.SuperScript Then 
       c.Characters(i, 1).Font.SuperScript = False 
      End If 
     Next i 
    Next c 

    Application.ScreenUpdating = True 

End Sub