EXCEL假死，向高手求救~_百度知道
EXCEL假死，向高手求救~
1、从网页复制数据，第一次，然后在EXCEL黏贴，都很快2、第二次复制，然后点击EXCEL，就会假死几秒钟，然后才可以黏贴，这是怎么回事？？ 重新装过office 无效
我有更好的答案
1 关闭EXCEL2 C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel
进入上面的文件夹，把EXCEL11.XLB文件删除，如果是2007版就删除 EXCEL12.XLB
2010版 删除 EXCEL14.XLB红色字体为WINDOWS系统登录用户名，根据实际情况调整3 重新 打开EXCEL 就好了望采纳
采纳率：75%
地主：楼主的回答好用不？
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。excel 数据匹配 求救啊！ 我需要高手帮忙告诉匹配公式。_百度知道
excel 数据匹配 求救啊！ 我需要高手帮忙告诉匹配公式。
Sheet1 A 列有ITEM，B列有UPC，C列有SKU Sheet2 A 列有ITEM，B列有UPC，如何把SKU匹配到Sheet 2？
我有更好的答案
一看就是干超市的,华润还是家得宝?=vlookup(B1,sheet1!$B:$C,2,0)
采纳率：29%
来自团队：
看你弄什么的先，如果单个的话，可以用
=vlookup(B1,sheet1!$B:$C,2,0) ，但是，如果你是批量的话，那就得编程了，用代码来写的。
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。当前位置：
&【求助】Excel 中怎样间隔取点？【已完结】
【求助】Excel 中怎样间隔取点？【已完结】
作者 evildran
Excel中数据太多了，有8000多个，现在想要从中选取一些典型的，或者是固定间隔的点作曲线。有什么合适的函数啊？（最好是能间隔取点的，就是每隔几个位置，取一个点，那样最好了。）
[ Last edited by nono2009 on
at 16:11 ]
自己录制一个间隔取点的宏就可以了。偶以前是这么做的，不知现在新版excel是否可以更加容易地做了。
如果只有一列的话，还是写程序用循环读方便！
貌似只有一列的话，直接用公式就可以鸟~~
ps：用那个公式我就不知道了...
前段时间，有个人问怎么用origin间隔取点的。当时研究origin，就顺便把excel的做法也搞出来的，见附件，每5个点取一个，用OFFSET函数，当然其他的函数也能办到。
& &=OFFSET($E$6,(ROW(E6)-ROW($E$6))*5,,)
[ Last edited by sxlion811 on
at 17:31 ]，
补充一下，修改下面的数字5，换成你想要的间隔个数，比如说10什么
=OFFSET($E$6,(ROW(E6)-ROW($E$6))*10,,)
ps：上面语句这个写的比较通用些，所以有点复杂。
我自己没有研究过 不过这个关于Excel的问题以后可以去Excelhome去问，那里专业研究Excel的人比较多 呵呵 好像在挖墙脚了
我有时候也去那边看看，那边以office man 和office lady 居多。
24小时热帖
下载小木虫APP
与700万科研达人随时交流Excel 逻辑函数求助，有点复杂，实在搞不懂了_百度知道
Excel 逻辑函数求助，有点复杂，实在搞不懂了
我有更好的答案
请补充完整提问，或截图示例，以方便大家理解支招！直接给出具体的条件和要求，会方便知友针对性地给出解答。
采纳率：79%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 6469|回复: 38
多工作簿取数汇总求助
阅读权限20
在线时间 小时
&&我从事旅游行业，帐务很简单，但是处理的数据比较多，想用vba做到多工作簿取数汇总，也看了坛子里很多帖子，想依葫芦画瓢，无奈很多参数完全看不懂，请各位高手赐教。&&祝坛友2016万事如意。
&&跪谢！！！
03:24 上传
点击文件名下载附件
181.36 KB, 下载次数: 104
阅读权限95
在线时间 小时
看了你的帖子,没有难度只是麻烦,写代码需要时间,你自己都嫌麻烦了,来了个&后面以此类推&,但是实际和前边是不一样的,没办法以此类推的,你最好是一一标明
阅读权限20
在线时间 小时
看了你的帖子,没有难度只是麻烦,写代码需要时间,你自己都嫌麻烦了,来了个&后面以此类推&,但是实际和前边是 ...
对不起，我错了。
阅读权限20
在线时间 小时
确实这样，汇总不复杂
阅读权限20
在线时间 小时
补充了条件，代码会比较多，求大神帮忙。
11:06 上传
点击文件名下载附件
181.86 KB, 下载次数: 78
阅读权限20
在线时间 小时
& & & & & & & &
补充了条件，代码会比较多，求大神帮忙。
(102.03 KB, 下载次数: 110)
11:51 上传
点击文件名下载附件
Sub 汇总()
& & Dim brr()
& & fn = GetFilesList(ThisWorkbook.Path)& & 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
& & Application.ScreenUpdating = False&&'关闭屏幕刷新，提高速度
& & For l = 0 To UBound(fn)
& && &&&Workbooks.Open fn(l)
& && &&&For Each Sht In Worksheets
& && && && &m = m + 1
& && && && &n = n + 1
& && && && &Sheets(n).Activate
& && && && &ReDim Preserve brr(1 To 54, 1 To n)
& && && && &brr(1, n) = m
& && && && &brr(2, n) = Range(&C4&).Value
& && && && &brr(3, n) = Range(&C6&).Value
& && && && &brr(4, n) = Range(&h8&).Value
& && && && &brr(5, n) = &&
& && && && &brr(6, n) = Range(&h4&).Value
& && && && &brr(7, n) = Range(&j4&).Value
& && && && &brr(8, n) = &&
& && && && &brr(9, n) = &&
& && && && &brr(10, n) = Range(&c5&).Value
& && && && &brr(11, n) = Range(&h6&).Value
& && && && &brr(12, n) = &&
& && && && &brr(13, n) = Range(&c12&).Value
& && && && &brr(14, n) = Range(&c13&).Value
& && && && &brr(15, n) = Range(&c14&).Value
& && && && &brr(16, n) = Range(&c15&).Value
& && && && &brr(17, n) = Range(&d12&).Value
& && && && &brr(18, n) = Range(&d13&).Value
& && && && &brr(19, n) = Range(&d14&).Value
& && && && &brr(20, n) = Range(&d15&).Value
& && && && &brr(21, n) = Range(&d12&).Value + Range(&d13&).Value + Range(&d14&).Value + Range(&d15&).Value
& && && && &brr(22, n) = Range(&g12&).Value + Range(&g13&).Value + Range(&g14&).Value + Range(&g15&).Value
& && && && &brr(23, n) = &&
& && && && &brr(24, n) = &&
& && && && &brr(25, n) = Range(&b21&).Value
& && && && &brr(26, n) = Range(&c23&).Value
& && && && &brr(27, n) = Range(&c24&).Value
& && && && &brr(28, n) = Range(&c25&).Value
& && && && &brr(29, n) = Range(&c26&).Value
& && && && &brr(30, n) = Range(&f23&).Value + Range(&f24&).Value + Range(&f25&).Value + Range(&f26&).Value
& && && && &brr(31, n) = Range(&g23&).Value + Range(&g24&).Value + Range(&g25&).Value + Range(&g26&).Value
& && && && &brr(32, n) = &&
& && && && &brr(33, n) = Range(&j29&).Value
& && && && &brr(34, n) = &&
& && && && &brr(35, n) = &&
& && && && &brr(36, n) = Range(&b32&).Value
& && && && &brr(37, n) = Range(&b34&).Value
& && && && &brr(38, n) = Range(&b35&).Value
& && && && &brr(39, n) = Range(&b36&).Value
& && && && &brr(40, n) = Range(&b37&).Value
& && && && &brr(41, n) = Range(&f34&).Value + Range(&f35&).Value + Range(&f36&).Value + Range(&f37&).Value
& && && && &brr(42, n) = Range(&g34&).Value + Range(&g35&).Value + Range(&g36&).Value + Range(&g37&).Value
& && && && &brr(43, n) = &&
& && && && &brr(44, n) = Range(&j40&).Value
& && && && &brr(45, n) = &&
& && && && &brr(46, n) = &&
& && && && &brr(47, n) = Range(&j49&).Value
& && && && &brr(48, n) = &&
& && && && &brr(49, n) = Range(&j40&).Value
& && && && &brr(50, n) = &&
& && && && &brr(51, n) = &&
& && && && &brr(52, n) = &&
& && && && &brr(53, n) = &&
& && && && &brr(54, n) = Range(&j18&).Value
& && &&&Next
& && &&&ActiveWorkbook.Close
& && &&&lr2 = [B65536].End(3).Row
& && &&&lr = UBound(brr, 2)
& && &&&Range(&A& & lr2).Offset(1).Resize(lr, 54) = Application.Transpose(brr)
& && &&&n = 0
& & Application.ScreenUpdating = True
& & MsgBox &处理完毕！&
Function GetFilesList(sPath$) As Variant
& & Dim arr()
& & Set fso = CreateObject(&scripting.filesystemobject&)
& & Set ff = fso.getfolder(sPath)
& & For Each f In ff.Files
& && &&&If Not InStr(f.Name, ThisWorkbook.Name) & 0 Then
& && && && &ReDim Preserve arr(n)
& && && && &'arr(n) = f.Name& & '相对路径名
& && && && &arr(n) = f& & '全路径名
& && && && &n = n + 1
& && &&&End If
& & GetFilesList = arr
End Function
阅读权限20
在线时间 小时
Sub 汇总()
& & Dim brr()
非常感谢！！！！！还有几个问题想问一下您，万一以后原始表格格式有变动，就可以自己改。
Sub 汇总()
& & Dim brr()
& & fn = GetFilesList(ThisWorkbook.Path)& & 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
& & Application.ScreenUpdating = False&&'关闭屏幕刷新，提高速度
& & For l = 0 To UBound(fn)
& && &&&Workbooks.Open fn(l)
& && &&&For Each Sht In Worksheets
& && && && &m = m + 1& & 这两个定义的是什么
& && && && &n = n + 1& &&&这两个定义的是什么
& && && && &Sheets(n).Activate
& && && && &ReDim Preserve brr(1 To 54, 1 To n)& &&&这个是定义的什么
& && && && &brr(1, n) = m& && && && &这个是什么意思？
& && && && &brr(2, n) = Range(&C4&).Value& && &这个是什么意思？如果原始数据有改动，可以自己改吗？
& && && && &brr(3, n) = Range(&C6&).Value
& && && && &brr(4, n) = Range(&h8&).Value
& && && && &brr(5, n) = &&
& && && && &brr(6, n) = Range(&h4&).Value
& && && && &brr(7, n) = Range(&j4&).Value
& && && && &brr(8, n) = &&
& && && && &brr(9, n) = &&
& && && && &brr(10, n) = Range(&c5&).Value
& && && && &brr(11, n) = Range(&h6&).Value
& && && && &brr(12, n) = &&
& && && && &brr(13, n) = Range(&c12&).Value
& && && && &brr(14, n) = Range(&c13&).Value
& && && && &brr(15, n) = Range(&c14&).Value
& && && && &brr(16, n) = Range(&c15&).Value
& && && && &brr(17, n) = Range(&d12&).Value
& && && && &brr(18, n) = Range(&d13&).Value
& && && && &brr(19, n) = Range(&d14&).Value
& && && && &brr(20, n) = Range(&d15&).Value
& && && && &brr(21, n) = Range(&d12&).Value + Range(&d13&).Value + Range(&d14&).Value + Range(&d15&).Value& & 这个是什么意思？
& && && && &brr(22, n) = Range(&g12&).Value + Range(&g13&).Value + Range(&g14&).Value + Range(&g15&).Value
& && && && &brr(23, n) = &&
& && && && &brr(24, n) = &&
& && && && &brr(25, n) = Range(&b21&).Value
& && && && &brr(26, n) = Range(&c23&).Value
& && && && &brr(27, n) = Range(&c24&).Value
& && && && &brr(28, n) = Range(&c25&).Value
& && && && &brr(29, n) = Range(&c26&).Value
& && && && &brr(30, n) = Range(&f23&).Value + Range(&f24&).Value + Range(&f25&).Value + Range(&f26&).Value
& && && && &brr(31, n) = Range(&g23&).Value + Range(&g24&).Value + Range(&g25&).Value + Range(&g26&).Value
& && && && &brr(32, n) = &&
& && && && &brr(33, n) = Range(&j29&).Value
& && && && &brr(34, n) = &&
& && && && &brr(35, n) = &&
& && && && &brr(36, n) = Range(&b32&).Value
& && && && &brr(37, n) = Range(&b34&).Value
& && && && &brr(38, n) = Range(&b35&).Value
& && && && &brr(39, n) = Range(&b36&).Value
& && && && &brr(40, n) = Range(&b37&).Value
& && && && &brr(41, n) = Range(&f34&).Value + Range(&f35&).Value + Range(&f36&).Value + Range(&f37&).Value
& && && && &brr(42, n) = Range(&g34&).Value + Range(&g35&).Value + Range(&g36&).Value + Range(&g37&).Value
& && && && &brr(43, n) = &&
& && && && &brr(44, n) = Range(&j40&).Value
& && && && &brr(45, n) = &&
& && && && &brr(46, n) = &&
& && && && &brr(47, n) = Range(&j49&).Value
& && && && &brr(48, n) = &&
& && && && &brr(49, n) = Range(&j40&).Value
& && && && &brr(50, n) = &&
& && && && &brr(51, n) = &&
& && && && &brr(52, n) = &&
& && && && &brr(53, n) = &&
& && && && &brr(54, n) = Range(&j18&).Value
& && &&&Next
& && &&&ActiveWorkbook.Close
& && &&&lr2 = [B65536].End(3).Row& &这个是什么意思？
& && &&&lr = UBound(brr, 2)
& && &&&Range(&A& & lr2).Offset(1).Resize(lr, 54) = Application.Transpose(brr)
& && &&&n = 0
& & Application.ScreenUpdating = True
& & MsgBox &处理完毕！&
Function GetFilesList(sPath$) As Variant
& & Dim arr()
& & Set fso = CreateObject(&scripting.filesystemobject&)
& & Set ff = fso.getfolder(sPath)
& & For Each f In ff.Files
& && &&&If Not InStr(f.Name, ThisWorkbook.Name) & 0 Then
& && && && &ReDim Preserve arr(n)
& && && && &'arr(n) = f.Name& & '相对路径名& &路径名需要填写吗？
& && && && &arr(n) = f& & '全路径名
& && && && &n = n + 1
& && &&&End If
& & GetFilesList = arr
End Function
阅读权限20
在线时间 小时
Sub 汇总()
& & Dim brr()
老大&&，这列的汇总结果好像是错的，需要改哪里啊？
(2.75 KB, 下载次数: 59)
12:17 上传
阅读权限20
在线时间 小时
非常感谢！！！！！还有几个问题想问一下您，万一以后原始表格格式有变动，就可以自己改。
Sub 汇总() ...
m=m+1&&序号累加
n=n+1 对数组进行扩充
ReDim Preserve brr(1 To 54, 1 To n)& &重定义数组的保存原来的数据，54就是你汇总表的列数有54列，行数不定
brr(1, n) = m&&数组的第一行，第N列数据=序号&&第一张表此时N和M都为1，
brr(2, n) = Range(&C4&).Value& && &数组的第二行，第N列的数据=你的数据表的C4单元格
brr(21, n) = Range(&d12&).Value + Range(&d13&).Value + Range(&d14&).Value + Range(&d15&).Value 你不是说等于D12最好等于D12到D15求和吗
lr2 = [B65536].End(3).Row& & 求你汇总表最后有数据的行数
'arr(n) = f.Name& & '相对路径名 这是注释掉的，和下面一句只用一句
阅读权限20
在线时间 小时
老大&&，这列的汇总结果好像是错的，需要改哪里啊？
D12全是1800，D13全是1600，D14和D15全是空的，不是3400是多少？
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}