查看: 1618|回复: 5
阅读权限1UID505010函数0 关最后登录经验8 点在线时间0 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币36 个积分8精华0帖子日志注册时间
幼儿园小班, 积分 8, 距离下一级还需 92 积分
金币36 个积分8帖子
用分类汇总求和时，本来应该为0的汇总结果不为0 ，而是显示例如-1.33E-11之类，是什么问题呢?
另外，使用分类汇总求和时，EXCEL自动套用SUBTOTAL函数，但是自动筛选后的隐藏行不会参与求和，有什么办法能在到达汇总分类求和的前提下，让筛选后的隐藏行参与计算吗？
阅读权限9UID491902函数2 关最后登录经验1966 点在线时间127 小时VBA0 关分享记录好友技巧0 关相册主题段位2 段金币3248 个积分1971精华0帖子日志注册时间
小学6年级, 积分 1971, 距离下一级还需 129 积分
金币3248 个积分1971帖子
如果需要对隐藏的行也进行计算，建议不要用SUMTOTAL，改用SUM，个人观点不只是不是正确，
阅读权限16UID168547函数5 关最后登录经验5238 点在线时间246 小时VBA0 关分享记录好友技巧14 关相册主题段位5 段金币6538 个积分5302精华0帖子日志注册时间
大学1年级, 积分 5302, 距离下一级还需 698 积分
金币6538 个积分5302帖子
同意楼主观点。。。。。。。。。。。。。。。。。。。。。
阅读权限1UID503603函数0 关最后登录经验6 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币31 个积分6精华0帖子日志注册时间
幼儿园小班, 积分 6, 距离下一级还需 94 积分
金币31 个积分6帖子
-1.33E-11之类是科学计数法，表示-0.3，你的原始数据就有这个数据，只是由于小数显示的，所以发现不了。
阅读权限1UID503603函数0 关最后登录经验6 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币31 个积分6精华0帖子日志注册时间
幼儿园小班, 积分 6, 距离下一级还需 94 积分
金币31 个积分6帖子
还有没搞懂的就是你为什么需要筛选，然后需要分类汇总隐藏项呢，取消筛选再汇总不行？非要筛选后汇总的话，可以利用插入数据透视表的形式
阅读权限5UID374586函数3 关最后登录经验619 点在线时间67 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币390 个积分619精华0帖子日志注册时间
小学2年级, 积分 619, 距离下一级还需 281 积分
金币390 个积分619帖子
你的数据本身可能不是0，有小数位数。同意用SUM计算
Powered by本文欢迎转载，转载请注明：转载自中国学网： []
用户还关注
可能有帮助查看: 571|回复: 15|
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
如附件中：
(28.48 KB, 下载次数: 4)
16:25 上传
下载次数: 4
1.& &以下代码中，想加一个对话框，好让宏执行的时候可以按要求选择从A2或者A3，A4，A5...开始作为起始，而不是直接从A1元格开始。
Dim i As Integer, sht As Worksheet, sh As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
& &&&If sh.Name && &目录& And sh.Name && &模板& Then sh.Delete 'ActiveSheet.Name是当前表
& & Next sh
Set sht = Worksheets(&目录&)
Do While sht.Cells(st, &a&).Value && &&
If Worksheets(sht.Cells(i, &a&).Value) Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Sheets(&模板&).Cells.Copy ActiveSheet.Cells(i, 1)
ActiveSheet.Name = sht.Cells(i, &a&).Value
Application.ScreenUpdating = True
2.&&下面的宏中，全选的工作表名称可以用什么方法替换为除第一个工作表外的全部工作表，因为如果工作表的名称变了，这个宏就执行不了。
Sub Paste()
& & Sheets(&样品编号&).Select
& & ActiveWindow.SelectedSheets.Delete
& & Sheets(Array(&目录&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&)).Select
& & Sheets(&目录&).Activate
& & Sheets(Array(&&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&)).Select Replace:=False
& & Sheets(Array(&&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&)).Select Replace:=False
& & Sheets(Array(&&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&)).Select Replace:=False
& & Sheets(Array(&&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&)).Select Replace:=False
& & Sheets(Array(&&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&, &&, &&, _
& && &&&&&, &&, &&, &&)).Select Replace:=False
& & Columns(&A:O&).Select
& & Selection.Copy
& & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
& & Range(&Q5&).Select
& & Application.CutCopyMode = False
Sub Test()
在线时间5854 小时经验29670 威望11 最后登录注册时间阅读权限100UID646032积分30420帖子精华2分享0
管理以下版块
积分排行6帖子精华2微积分0
1，只需要修改i=1的值即可；
2，For Each sh In Sheets
& &&&If sh.Name && &样品编号&&&Then
& && && &sh.Columns(&A:O&)=sh.Columns(&A:O&).Value
& &&&Endif
& & Next sh
本帖评分记录鲜花
总评分:&鲜花 + 2&
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
蓝桥玄霜 发表于
1，只需要修改i=1的值即可；
2，For Each sh In Sheets
& &&&If sh.Name&&&样品编号&&&Then
谢谢版主的回帖，第一个问题，修改i=1或者=2，这个每次修改有点麻烦，可以不可以加个对话框，输入2就变成i=2,输入3，i=3 ?
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
蓝桥玄霜 发表于
1，只需要修改i=1的值即可；
2，For Each sh In Sheets
& &&&If sh.Name&&&样品编号&&&Then
第2个问题，首先多谢版主！ 测试了以下，发现可以执行，但是工作表很多的时候速度没有全部选择那样快，等了很久才执行完。是不是可以改善呢？
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
高飞扬 发表于
第2个问题，首先多谢版主！ 测试了以下，发现可以执行，但是工作表很多的时候速度没有全部选择那样快，等 ...
另外，执行到第17个工作表的时候就报错了，后面的数值替换就没有成功。
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
还有一个问题就是，当工作表“模板”里面的页面设置（上下左右的大小）设置好了，用宏做出来的表却不是这个格式，不知道应该怎样改一下语句？
在线时间1408 小时经验8280 威望19 性别男最后登录注册时间阅读权限50UID20974积分12680帖子精华5分享0
积分排行49帖子精华5微积分0
用鼠标全选工作表：
sheets.select
在线时间226 小时经验231 威望0 性别男最后登录注册时间阅读权限20UID2312228积分231帖子精华0分享0
EH初级, 积分 231, 距离下一级还需 119 积分
积分排行3000+帖子精华0微积分0
yanjie 发表于
用鼠标全选工作表：
sheets.select
是想预先设好的格式能够延用，不是等做好表后再去改格式。求解！
在线时间1408 小时经验8280 威望19 性别男最后登录注册时间阅读权限50UID20974积分12680帖子精华5分享0
积分排行49帖子精华5微积分0
sheets(1).select& & '选定第一个工作表
sheets(2).select False& &&&'同时选定第1和第2个工作表
在线时间1408 小时经验8280 威望19 性别男最后登录注册时间阅读权限50UID20974积分12680帖子精华5分享0
积分排行49帖子精华5微积分0
本帖最后由 yanjie 于
19:11 编辑
假设你有3个工作表
Dim sh As Sheets
Set ws = ThisWorkbook.Worksheets(&Sheet1&)
Sheets.Select& && && &&&'全选工作表
Sheets(1).Select& && && & ‘选定第一个工作表
Sheets(2).Select False& && &&&’同时选定第一个和第二个工作表
Set sh = Windows(1).SelectedSheets& &&&'最好方法是把选定2个工作表用一个变量保存起来！要调用的时候随时可以使用。
Sheets.Select True& && &‘再次全选工作表
sh.Select True& && && &’调用原来保存的第一个和第二个工作表选定
别叫我做那些事，我水平有限，抱歉！
本帖评分记录鲜花
总评分:&鲜花 + 2&
积分≥4700即可申请
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
updated at: 2:58:03
友情链接请加ＱＱEXCEL文档强行关闭，恢复后格式丢失，求高人指点_百度知道
EXCEL文档强行关闭，恢复后格式丢失，求高人指点
我有更好的答案
按默认排序
在操作过程中强行关闭？
如果是这样的话
那就没办法了
内存的里的东西已经被释放了
没办法找回来了
希望能帮到你
1、转换格式法 　　就是将受损的Excel XP工作簿另存格式选为SYLK。如果可以打开受损文件，只是不能进行各种编辑和打印操作，那么建议首先尝试这种方法。2、直接修复法　　最新版本的Excel XP在“打开”窗口的“打开”按钮内有直接修复受损文件的“打开并修复”功能，这种方法适用于常规方法无法打开受损文件的情况。　　3、偷梁换柱法　　遇到无法打开受损的Excel XP文件时，也可以尝试使用Word来打开它。操作如下：　　(1)运行Word程序，选择需要打开的Excel文件；　　(2)如是首次运用Word程序打开Excel XP文件，可能会有“Microsoft Word无法导入指定的格式。这项功能目前尚未安装，是否现在安装？”的提示信息，此时可插入Microsoft Office安装盘进行安装；　　(3)按照Word程序的提示选择修复整个工作簿还是某个工作表；　　(4)先将文件中被损坏的数据删除，再将鼠标移动到表格中，并在菜单栏中依次执行“表格→转换→表格转换成文字”命令，选择制表符为文字分隔符，将表格内容转为文本内容，然后另存为纯文本格式文件；　　(5)运行Excel XP程序，打开刚保存的文本文件；　　(6)随后根据“文本导入向导”的提示就能顺利打开该文件了。　　修复后的工作表与原工作表基本一样，不同的是表格中所有的公式都需重新设置，还有部分文字、数字格式丢失了。　　4、自动修复法　　此法适用于Excel XP程序运行出现故障关闭程序或断电导致的文件受损。重新运行Excel XP，它会自动弹出“文档恢复”窗口，并在该窗口中列出已自动恢复的所有文件。用鼠标选择要保留的文件，并单击指定文件名旁的箭头，根据需要选择“打开”、“另存为”、“显示修复”。　　在缺省状态下Excel XP是不会启用自动修复功能的，因此预先设置：首先在菜单栏中依次点击“工具→选项”命令，在设置框中单击“保存”标签，将“禁用自动恢复”复选框取消，然后选中“保存自动恢复信息，每隔X分钟”复选项，并输入指定的间隔频率，最后点击“确定”完成设置。　　如果还没有自动弹出“文档恢复”窗口，可以尝试用手工的方法打开自动恢复的文件：依次执行“文件→打开”命令，利用“查找范围”框定位并打开Excel XP保存自动恢复文件的文件夹，要是不知道那个文件夹的位置，可以查看“自动恢复文件保存位置”框中的路径，接着在“文件类型”选择对话框中，选中“所有文件(*.*)”选项，并选择要恢复的文件，最后单击“打开”按钮，打开文件进行自动修复。　　5、工具修复法　　如果上面的几种方法都不能修复文件，还可以借助专门用来修复受损Excel XP文件的“ExcelRecovery”。该软件会自动将修复程序加到Excel软件中，表现为在“文件”菜单下增添一项“Recovery”命令，它能自动以修复方式打开受损文件。
拷贝到优盘，然后把原史删除，拷贝到硬盘，恢复文件格式，
其他类似问题
excel的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 5364|回复: 9
EXCEL表格，打开很慢，操作一段时间就卡住，求高人指点
EXCEL表格，打开很慢，操作一段时间就卡住，求高人指点。我用安全卫士清除了垃圾，重装OFFICE2003，表格杀了毒，问题依旧，实在没辙了，求救啊！！！
别小看excel表格
办公用电脑的配置一般都不怎么样，一般也就是E2160之类的低端CPU和2G内存，有些抠巴点的公司配置更烂
excel里计算的数据多一些，或者背景色什么的弄一下，这些电脑吃不消的
我们公司客服部的上次发了个表给我，也就20M，光打开就要5分钟，我把他设置成手动计算，打开还要2分半钟
要么就让老板掏钱搞个好点的电脑，要么就让那些做表格的，不要什么东西都搞在一个excel里
顶楼上的。。
1、检查打开的EXCEL的大小
2、比较其他EXCEL是不是也死掉！
3、如果是某个EXCEL才死掉，检查也里面的宏之类的，导致的！
支付宝插件会导致这样的情况
重新安装一下软件
清理缓存，试试，或者看看有啥 进程和他有冲突
里面有一大堆的图片。。。。
清除表格里面的空白对象试试，不会操作自己查百度
检查对象，清除插件
过来看一下
( 沪ICP备号 )&
Powered by Discuz! X3.1