用excel打开csv格式文档如何设置可以显示字段前的0

打开文件，鼠标选择你要更改的单元格。

Ctrl+H  ，替换功能，上面那个框输入0，下面那个框不输入任何值。

回车。

这样就把账号里边的0全部去掉了。

如果你账号里边本身含有0，这也好办。

在账号右侧插入列

比如账号为K列，那在L列的K2位置输入

=MID(K2,1,LEN(K2)-1)

这样账号后边的那个0就自动没有了

可以呀。以的行方式来读文本就可以了。

你读一行然后分析一行，如果符合则那一行的内容由你指定。

这不就行了吗？

rt0 = "文件路径和名字"

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(rt0) = 0 Then Exit Function

Set rt1 = fso.opentextfile(rt0, 1)

Do While rt1.atendofstream >-1

rt100 = rt1.readline

'在这里添加你的分析，如果适合就把rt100改成你指定的

rt10 = rt10 &vbCrLf &rt100

Loop

'然后在这里把rt10写进去就好了

手机导出的CSV通讯录是只读格式，编辑后需另存，但另存后无法导回手机。原因是导出的CSV文件，每个字段前后都带""，而EXCEL编辑后另存的文件不带”"。

解决办法：

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

---