excel表格怎么删除英文空格

1.excel vba将内容设置为统一格式 去除英文空格

Sub 将内容设置为统一格式（）

Application.Calculation = xlManual '程序运行时设置EXCEL计算方式为“手动重算”，结束时再恢复“自动重算”

Application.ScreenUpdating = False '禁止刷新

Dim c As Range

[a1].Copy

Cells.PasteSpecial xlPasteFormats

For Each c In ActiveSheet.UsedRange

c = Trim(c)

a = ""

For i = 1 To Len(c)

b = Mid(c, i, 1)

If Asc(b) <> 63 Then a = a & b

Next

c = a

Next

Application.ScreenUpdating = True '禁止刷新屏幕

Application.Calculation = xlAutomatic '程序运行时设置EXCEL计算方式为“手动重算”，结束时再恢复“自动重算”。

End Sub

2.excel vba将A6以下内容设置为统一格式 去除英文空格

Sub 将内容设置为统一格式（）

Dim c As Range

[a6].Copy

n = ActiveSheet.UsedRange.Count

Range("6:" & n).PasteSpecial xlPasteFormats

For Each c In ActiveSheet.UsedRange

c = Trim(c)

a = ""

For i = 1 To Len(c)

b = Mid(c, i, 1)

If Asc(b) <> 63 Then a = a & b

Next

c = a

Next

End Sub