打开已有的表格再添加新的数据上去点保存的时候就没反映了。
电脑直接死机 什么键都不起作用。愁死我了 麻烦帮我解决一下
在下感激不尽
这个问题我以前也回答过。由于数据繁多,用筛选功能也不方便。所以,推荐用宏实现。用宏的话必须清楚你到底什么样的行才算重复的行。上次的一位网友ABCD四列相同就算重复。我的回答如下:== == == == == == == == == == == == == == == == == == == == == ==不知道你有没有用过宏,所以,我先说怎么启用宏。默认情况下,宏是被禁用的。打开EXCEL,在菜单栏点击“工具”->“宏”->“安全性”,在打开的对话框中,选择“中”或“低”。建议选“中”。下面,写入宏以实现该功能。步骤如下:“工具”->“宏”->“Visual Basic编辑器”,在打开的VB编辑器中左侧有“工程”窗口,在这里的“模块”上点右键,“插入”->“模块”,此时,生成了“模块1”,双击“模块1”,在打开的窗口里写入需要的宏代码。要实现你所需要的功能的宏代码我已经为你写好,代码如下:Sub sub1()ActiveCell.SpecialCells(xlLastCell).Selectdatarows = Selection.RowIf datarows <> 1 ThenFor I = 1 To datarowsIf Range("A" & CStr(I)) & Range("B" & CStr(I)) & Range("C" & CStr(I)) & Range("D" & CStr(I)) <> "" Thenj = datarowsDo While j > IIf 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)) ThenRows(j).Delete Shift:=xlUpdatarows = datarows - 1End Ifj = j - 1LoopEnd IfNext IEnd IfEnd Sub代码写好了,关闭VB编辑器。只要运行该宏就可以实现删除重复的项目的操作。“工具”->“宏” ->“宏”,选中“sub1”,点执行。我写的这个代码实现了如下功能:查找A列B列C列D列都相同的数据(区分大小写)并删除至只剩一行(即无重复),考虑到你可能使用空行来使数据更具结构性,因此,这里我设置了不删除空行。由于宏操作不可撤消,请在使用该宏前备份数据。 == == == == == == == == == == == == == == == == == == == == == ==你可以参照上面的代码进行修改,以适合你的需要。当然,你也可以找我帮忙,我的QQ号:840465