请问我从SQL导出的数据到EXCEL单元格中后面带了很多个空格怎么去除

Question

Private Sub worksheet_selectionchange(ByVal target As Range)
Set conn = CreateObject("adodb.connection")
conn.Open "driver=sql server;server=pz01;database=IQCSIP;uid=iqc;pwd=Iqcsip2020"
If conn.State = 1 Then

[a1] = "姓名":
[b1] = "密码": [c1] = "可操作的表": [d1] = "设置": [e1] = "IQC质量报告": [f1] = "SQE质量报告":
[g1] = "不良品特采登记台账": [h1] = "Sheet1":

SQL1 = "SELECT 姓名 FROM 账户"
SQL2 = "SELECT 密码 FROM 账户"

ActiveWorkbook.Sheets("设置").Cells(2, 1).CopyFromRecordset conn.Execute(SQL1)
ActiveWorkbook.Sheets("设置").Cells(2, 2).CopyFromRecordset conn.Execute(SQL2)

End If
conn.Close
Set conn = Nothing

UserForm1.Show
End Sub

Answer 1

全选，替换掉空格，如果怕把有用的空格替换掉就以两个空格为目标替换