作者：乔山办公网日期：
返回目录：excel表格制作
确认不是病毒的情况下，拷贝文件到装有office2010的计算机，试一zhidao下以下方法：
方法一、打开后另存，保存类型为：EXCEL工作簿。再次打开这个文件，继续另存，保存类型选：excel 97-2003工作簿。
方法二、由于Microsoft Excel 4.0版本宏写在宏表里，删除宏表后保存应该就可以排除了。
（1）具体操作：ALT+F11，点插入——模块，然后粘贴下面的代内码：
Sub 显示隐藏的表容()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next
End Sub
（2）ALT+F8，选中“ 显示隐藏的表 ”——执行
（3）这时会出现Macro1这样的你不熟悉的表，删除。
（4）保存。由于前边的步骤又给工作表增加了一个宏，所以保存的时候按方法一执行，去掉宏。
删除有两种版本
OFFICE2007
首先选择需要删除重复项e69da5e887aae799bee5baa6339的所有单元格。如果是要对所有数据进行这一操作，可以任意选择一个单元格。
在工具栏中选择“数据”选项卡，再单击“排序与筛选”区中的“删除重复项”按钮。
在弹出的“删除重复项”对话框选择要检查的字段，最终将只对选中的字段进行比较。这里选择后三个字段。
最后单击“确定”按钮，多余的重复项就被删除了。
OFFICE2003
一、在Excel以前的版本中，可以通过“高级筛选”来删除重复记录
点击数据-高级筛选，选择“不重复记录”将数据复制到目标区域就好
二、
步骤如下：
“工具”->“宏”->“Visual Basic编辑器”，在打开的VB编辑器中左侧有“工程”窗口，在这里的“模块”上点右键，“插入”->“模块”，此时，生成了“模块1”，双击“模块1”，在打开的窗口里写入需要的宏代码。要实现你所需要的功能的宏代码我已经为你写好，代码如下：
Sub sub1()
ActiveCell.SpecialCells(xlLastCell).Select
datarows = Selection.Row
If datarows <> 1 Then
For I = 1 To datarows
If Range("A" & CStr(I)) & Range("B" & CStr(I)) & Range("C" & CStr(I)) & Range("D" & CStr(I)) <> "" Then
j = datarows
Do While j > I
If Range("A" & CStr(I)) = Range("A" & CStr(j)) And Range("B" & CStr(I)) = Range("B" & CStr(j)) And Range("C" & CStr(I)) = Range("C" & CStr(j)) And Range("D" & CStr(I)) = Range("D" & CStr(j)) Then
Rows(j).Delete Shift:=xlUp
datarows = datarows - 1
End If
j = j - 1
Loop
End If
Next I
End If
End Sub
代码写好了，关闭VB编辑器。只要运行该宏就可以实现删除重复的项目的操作。“工具”->“宏” ->“宏”，选中“sub1”，点执行。
这段代码实现了如下功能：查找A列B列C列D列都相同的数据（区分大小写）并删除至只剩一行（即无重复），考虑到你可能使用空行来使数据更具结构性，因此，这里设置了不删除空行。由于宏操作不可撤消，请在使用该宏前备份数据。
确认不是病毒的情况下，拷贝文件到装有office2010的计算机，试一下以下方法：百
方法一、打开后另度存，保存类型为：EXCEL工作簿。再次打开这个文件，继续另存，保存类型选：excel 97-2003工作簿。
方法二、由于Microsoft Excel 4.0版本宏写在宏表里，删除宏表后问保存应该就可以排除了。
（1）具体操作：ALT+F11，点插入——模块，然后粘贴答下面的代码：
Sub 显示隐藏回的表()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next
End Sub
（2）ALT+F8，选中“ 显示隐藏的表 ”——执行
（3）这时会出现Macro1这样的你不熟悉的表，删除。
（4）保存。由于前边的步骤又给工作答表增加了一个宏，所以保存的时候按方法一执行，去掉宏。