個人用マクロブックにこんな感じでマクロを書いとくとOK。 CTRL+SHIFT+CでCleanCopyメソッドを起動する。 Sub auto_open() Application.OnKey "^+c", "CleanCopy" End Sub Sub CleanCopy() Dim val As String Dim i As Integer For i = 1 To Selection.Count…