高手进，10年经验未解决。此表不能删除行列，无病毒、无代码、无对象、无公式、无保护

零下七渡

鄂龙蒙 发表于 2019-6-14 18:17
另存一下其它版本没问题了呀

谢谢  
我好想知道为啥会这样

lele6809

零下七渡 发表于 2019-6-14 17:48
解决就是   选择要的数据  粘贴到新表，
我是想如何避免这类问题，这个隐藏的太深了，发现不了，我都死 ...

这种情况的发生往往是无意间拉动滚动条造成的，Excel认为你是使用了那些无用的行列

maditate

肯定是文件结构损坏了。压缩文件本身不大，解压后达3.7M

lipton

论坛很久以前有一个例子，空白表有1百多M，里面包含了大量的控件原因是拷贝网页数据时的残留，记得是先遍历工作表的所有控件删除，然后执行Cells.Clear，处理后文件只有几K，没有2019office,倒想试一试。

零下七渡

lele6809 发表于 2019-6-14 18:20
这种情况的发生往往是无意间拉动滚动条造成的，Excel认为你是使用了那些无用的行列

软件  漏洞？？？？

maditate

零下七渡 发表于 2019-6-14 18:23
软件  漏洞？？？？

是工作表损坏了。我另外新增一张工作表，把数据复制到新工作表上，再删除老工作表。再保存文件。现在只剩下8k了。

零下七渡

lipton 发表于 2019-6-14 18:23
论坛很久以前有一个例子，空白表有1百多M，里面包含了大量的控件原因是拷贝网页数据时的残留，记得是先遍历 ...

控件不是对象吗     定位不到啊
2019还不错

lipton

原来2017可以打开，打开VBE编辑窗口，插入模块，把代码贴上，按F5执行，在我的机子不到一秒，然后移除模块。点击保存。剩10K。

1. Sub test()
   
2.     Dim rng As Range
   
3.     Dim lastRow As Long
   
4.     Dim startRow As Long
   
5.     Dim firstCol As Long
   
6.     Dim endCol As Long
   
7.    
   
8.     startRow = Sheet1.Range("a1").End(xlDown).Row
   
9.     Set rng = Sheet1.Cells(startRow + 1, 1)
   
10.    
    
11.     endCol = rng.End(xlToRight).Column        '最大列数
    
12.     lastRow = rng.End(xlDown).Row        '最大行数
    
13.     With Sheet1
    
14.         Set rng = .Range(.Cells(startRow+1, 1), .Cells(lastRow, endCol))'从有数据的下一行开始到最后一行，列从第一列到最后一列
    
15.         rng.Clear'执行清除
    
16.     End With
    
17.    
    
18. End Sub

复制代码

零下七渡

lipton 发表于 2019-6-14 18:46
原来2017可以打开，打开VBE编辑窗口，插入模块，把代码贴上，按F5执行，在我的机子不到一秒，然后移除模块 ...

可以了，
为啥清除内容清除不掉啊   到底是啥东西呢

ivccav

零下七渡 发表于 2019-6-14 18:50
可以了，
为啥清除内容清除不掉啊   到底是啥东西呢

清除格式就行了。我遇到一些和你一样有10年经验的文员，表格只有几行数据，600多M的文件，打开很慢。全选，清除格式后只剩几K，速度快得很。10年经验可能只是不断重复动作，没有知识的经验未必有意义的