解决办法: 1.另存成CSV UTF-8格式文件,选中所有单元格,设置格式为文本,所有列宽设置成根据内容自动调整列宽。 2.编辑好通讯录内容,用VBA插入下列代码,在每个字段前后添加. Sub Add_Quote() Application.ScreenUpdating = False Range(A2, ActiveCell.SpecialCells(xlLastCell)).Select For Each cel In Selection cel.Value = Chr(34) & cel.Value & Chr(34) Next cel Application.ScreenUpdating = True End Sub