电脑E盘有两个文件夹的文件怎么样也删除不了，删除后又自动恢复了，名字不一样！不占存储空间！文件夹名字是数字的！按shift+del删除不了，但是用360强力删除可以删除，会自动回复成另外一个名字！
电脑E盘有两个文件夹的文件怎么样也删除不了，删除后又自动恢复了，名字不一样！不占存储空间！文件夹名字是数字的！按shift+del删除不了，但是用360强力删除可以删除，会自动回复成另外一个名字！ 50
不区分大小写匿名
等待您来回答
电脑常识领域专家查看: 633|回复: 6
阅读权限5UID630807函数0 关最后登录经验799 点在线时间91 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币522 个积分799精华0帖子日志注册时间
小学2年级, 积分 799, 距离下一级还需 101 积分
金币522 个积分799帖子
&&老师你们好，我想在把1、2‘，3三个格式工作薄的内容移到汇总表去，当然不能用复制、粘贴，因为我工作中有100多个相同格式的工作薄需要整合，谢谢。
16:34 上传
点击文件名下载附件
67.46 KB, 下载次数: 8
阅读权限17UID532288函数3 关最后登录经验6360 点在线时间596 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币2738 个积分6360精华0帖子日志注册时间
金币2738 个积分6360帖子
ligh1298发布于
你的1、2、3表格结构有点不一样，合并起来有点问题。
阅读权限255UID284853函数0 关最后登录经验115642 点在线时间3632 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币36839 个积分115647精华2帖子日志注册时间
金币36839 个积分115647帖子
那就用代码嘛。
阅读权限5UID630807函数0 关最后登录经验799 点在线时间91 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币522 个积分799精华0帖子日志注册时间
小学2年级, 积分 799, 距离下一级还需 101 积分
金币522 个积分799帖子
hwc2ycy 发表于
那就用代码嘛。
请问具体应该如何写？
阅读权限17UID532288函数3 关最后登录经验6360 点在线时间596 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币2738 个积分6360精华0帖子日志注册时间
【函中201301班】D21
大学2年级, 积分 6360, 距离下一级还需 340 积分
金币2738 个积分6360帖子
&&&本楼为最佳答案&&&
你的1、2、3表格结构有点不一样，合并起来有点问题。
17:08 上传
点击文件名下载附件
202.67 KB, 下载次数: 20
阅读权限5UID630807函数0 关最后登录经验799 点在线时间91 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币522 个积分799精华0帖子日志注册时间
小学2年级, 积分 799, 距离下一级还需 101 积分
金币522 个积分799帖子
ligh1298 发表于
你的1、2、3表格结构有点不一样，合并起来有点问题。
谢谢老师，非常的好
我已经把另一个表的格式改为一样了
我相问下，如果是100个表，执行这个宏也能达到这个效果吗？
阅读权限17UID532288函数3 关最后登录经验6360 点在线时间596 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币2738 个积分6360精华0帖子日志注册时间
【函中201301班】D21
大学2年级, 积分 6360, 距离下一级还需 340 积分
金币2738 个积分6360帖子
代码中没有限定表格数量，是可以的。
阅读权限5UID630807函数0 关最后登录经验799 点在线时间91 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币522 个积分799精华0帖子日志注册时间
小学2年级, 积分 799, 距离下一级还需 101 积分
金币522 个积分799帖子
ligh1298 发表于
代码中没有限定表格数量，是可以的。
太棒了，好好研究研究
最佳答案累计大于500
站长推荐 /2
兰色幻想+小妖联合录制
excel函数初中高56集+VBA宏80集
excel数据透视表全套
excel终极技巧80集全套
excel十大旧习惯全套
高清视频教程
让你从excel菜鸟走向excel高手!
由兰色幻想+小妖录制，全套290集excel高清视频，包括108集技巧，98个常用函数、80集VBA宏编程等内容，你想学的这里都有。双12，全部视频限时5折优惠！
Powered by有没有这样一款软件，能把杂乱无章的一个文件夹里相相同格式的文件放在一起？_百度知道
有没有这样一款软件，能把杂乱无章的一个文件夹里相相同格式的文件放在一起？
假如我电脑有个文件夹里面有一百张图片，还有一百首歌曲，还有其他的一些东西，而我想把MP3格式的歌曲全都复制到手机上，而这时需要一首一首的找并复制，很麻烦
我有更好的答案
按默认排序
你把不显示拓展名勾了没
360手机助手
其他类似问题
杂乱无章的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁各位大侠，我想请问，如何用VBA实现，设置一个按钮，将同一文件夹下的一个Excel表格（表1）中的某一range的数据复制到另一个Excel（表2的sheet1表）的指定地方（B2）？
我写了一个VBA，可是不对，表1可以打开，就是不能复制。
Sub copy()
Dim myname$
Application.ScreenUpdating = False
myname = Dir(ThisWorkbook.Path & &\表1.XLS&) '取得目录中另一个文件名
& & Workbooks.Open ThisWorkbook.Path & &\& & myname '打开新文件
& & With Workbooks(myname).Sheets(1)
& && &.Range(&C3:I1000&).copy Destination:=Worksheets(&sheet1&).Range(&B2&)’这句不对，copy的用法是这样么？应该怎么实现Copy的功能呢？
& & End With
& & Workbooks(myname).Close savechanges:=True
Application.DisplayAlerts = True
球各位大侠帮帮我吧，我没学过VBA，真是不会啊......在线等，先跪拜了。。。。
在线时间122 小时经验104 威望0 最后登录注册时间阅读权限20UID2002880积分104帖子精华0分享10
EH初级, 积分 104, 距离下一级还需 246 积分
积分排行3000+帖子精华0微积分0
With Workbooks(myname).Sheets(1)
& && & .Range(&C3:I1000&).copy Destination:=Worksheets(&sheet1&).Range(&B2&)
& &&&End With
我也觉得这句有点问题，注意用了With，而且目标地址 worksheets(&sheet1&)? 一般是thisworkbook.sheets()....
是哪个workbook的？
在线时间13 小时经验10 威望0 性别保密最后登录注册时间阅读权限10UID2071367积分10帖子精华0分享0
EH新人, 积分 10, 距离下一级还需 10 积分
积分排行3000+帖子精华0微积分0
Excelworm 发表于
With Workbooks(myname).Sheets(1)
& && & .Range(&C3:I1000&).copy Destination:=Worksheets(&sheet1&).R ...
是啊，就是这句有问题，我是想把“表1.xls“的c3:I1000的数据复制到&表2.xls&的&sheet1&的B2处，是不同的两个Excel文件，应该怎么写呢？谢谢~~
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&怎样将同一个文件夹里面各个excel表的数字求和汇总？_百度知道
怎样将同一个文件夹里面各个excel表的数字求和汇总？
怎样将同一个文件夹里面各个excel表的数字求和汇总？比如我想求和30张excel表里面的各项数字，每张excel表里面的格式和内容都相同，就是excel表名和里面具体的数字不同。
我是不是安静的走开我是不是安静的走开我是不是安静的走我是不是安静的走开开
其他类似问题
20人觉得有用
按默认排序
其他2条回答
你没有把问题说明白，你所说的excel表应该是工作簿，但每个簿里面又会有多个工作表，你要汇总的是某个表还是全部？是按对应的单元格汇总还是不论什么单元格的数据都全部汇总？下面代码是将某文件夹下所有excel文件中所有工作表中的数字汇总，你可修改代码达到你的目的。用法：将附件文件放在要统计的文件夹内，打开这个文件就可在B2显示汇总结果。Private&Sub&Workbook_Open()&&&Dim&Na$,&Ph$,&Wo&As&Workbook&&&Ph&=&ThisWorkbook.Path&&&&\&&&&Na&=&Dir(Ph&&&&*.xls&)&&&While&Na&&&&&&&&&&&&If&Na&&&&ThisWorkbook.Name&Then&&&&&&&&&Set&Wo&=&Workbooks.Open(Ph&&&Na)&&&&&&&&&For&i&=&1&To&Wo.Sheets.Count&&&&&&&&&&&&A&=&A&+&WorksheetFunction.Sum(Wo.Sheets(i).Cells)&&&&&&&&&Next&&&&&&&&&Wo.Close&False&&&&&&End&If&&&&&&Na&=&Dir()&&&Wend&&&[A1]&=&&文件夹“&&&&Ph&&&&”所有表格数值总和等于&&&&[B1]&=&AEnd&Sub
我说的是工作簿，每个工作簿中也有很多个工作表，我是想分别汇总各个表，按照对应的单元格进行汇总，请问怎么做？
写代码并不难，但因为表较多，运行较慢，所以最好定制，也就是你发一个样表来，标明哪些单元格要汇总，这样就更方便，’不然代码就复杂多了，因为需要判断哪些单元格是文本不用汇总，同时也容易出错，运行就慢。样表发到我的邮箱吧
数据&&合并计算&选每张表里的要求和的数据区域就行了
每张表都要打开才行吧？还有每个一张表里有很多个数据都要分别这样子一个个添加吗？
有多少表啊
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁