永发信息网

我的EXCEL出现了问题

答案:2  悬赏:50  手机版
解决时间 2021-05-03 09:49

打开已有的表格再添加新的数据上去点保存的时候就没反映了。

电脑直接死机 什么键都不起作用。愁死我了 麻烦帮我解决一下

      在下感激不尽

最佳答案
这个问题我以前也回答过。由于数据繁多,用筛选功能也不方便。所以,推荐用宏实现。用宏的话必须清楚你到底什么样的行才算重复的行。上次的一位网友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
全部回答
你把原来的数据复制出来,新建一个文件,再把数据粘贴上去。试一下行不。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
wpf窗体中使用objectquery要引用什么命名空间
庐山市台球协会我想知道这个在什么地方
晚上咳嗽是什么原因?
监理单位的监理能力和监理效果主要取决于哪些
厦门报关时外合同(即销售合同)是不是只要盖
佛山到杭州多少公里,从杭州到佛山,是多少公
课前三分钟演讲,谁能给我个短点的简单点的内
有哪些赞的歌,推荐一下
请问从石家庄去栾城南留村坐几路车呀
我要做老板 怎么样才是最简单的、
从平行四边形的一个锐角引两边的垂线,两垂线
誰要加戰隊?我在南方大區
石器时代地址有知道的么?有点事想过去
农业户与非农业户的区别是什么?
怎么查到长时间不上线的好友
推荐资讯
Gateway NV53A02c笔记本电脑,在海南哪里有卖
QQ农场里的化肥怎么用最好呢?
怎么?现在很少人玩飞车啊!都玩CF什么的!~~
谁邀请我QQ农场?
古人描绘春花的诗句,形容三国小乔的词句有哪
短信充值的元宝怎么取?
想找一篇简单的英语短文。
云海撞车后昏迷,小鱼和上官在咖啡厅是哪一集
那双NIKE鞋型号多少啊?
如何制作空间背景图?
谁会写“雨的自述”
求一宽VB汉化版的,病毒的不要来!
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?