如何在安徽财经大学网站上下载excle/vab_百度知道
如何在安徽财经大学网站上下载excle/vab
您的回答被采纳后将获得：
系统奖励20（财富值+经验值）+难题奖励30（财富值+经验值）
我有更好的答案
你要下载什么，同学excel吧？是咱学校主页的
其他类似问题
为您推荐：
安徽财经大学的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'excle vba处子show_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
excle vba处子show
上传于||文档简介
&&V​B​A​开​发​文​件
大小：7.83KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢查看: 517|回复: 6
excle重复行删除
阅读权限10
在线时间 小时
(8.61 KB, 下载次数: 7)
16:18 上传
点击文件名下载附件
求帮助！！！！！！
实现：当出现账号相同的 则将第7列、第8列的值分别相加到靠下的重复行里，然后其他项保持不变，把靠上的重复行删除。
<font color="#8362<font color="#0605<font color="#060518<font color="#<font color="#a<font color="#.98<font color="#5.29<font color="#<font color="#8362<font color="#0605<font color="#060518<font color="#<font color="#e<font color="#0.06<font color="#8.22<font color="#<font color="#8365<font color="#0605<font color="#060518<font color="#<font color="#d<font color="#39.14<font color="#1.15<font color="#<font color="#8366<font color="#0605<font color="#060518<font color="#<font color="#f<font color="#8.22<font color="#4.08<font color="#
运行完后：
<font color="#8362<font color="#0605<font color="#060518<font color="#<font color="#e<font color="#1.04<font color="#23.51<font color="#<font color="#8365<font color="#0605<font color="#060518<font color="#<font color="#d<font color="#39.14<font color="#1.15<font color="#<font color="#8366<font color="#0605<font color="#060518<font color="#<font color="#f<font color="#8.22<font color="#4.08<font color="#
阅读权限95
在线时间 小时
Sub °&&A&1_&&&÷()
Dim crr, brr, d
Dim n As Variant
Dim i As Long
Dim j As Long
Set d = CreateObject(&scripting.dictionary&)
n = Sheet1.[a65536].End(xlUp).Row
crr = Sheet1.Range(&A1:I& & n)
ReDim brr(1 To UBound(crr), 1 To UBound(crr, 2))
For i = 1 To UBound(crr)
& & If Not d.exists(crr(i, 1)) Then
& && & m = m + 1
& && & d(crr(i, 1)) = m
& && & For j = 1 To UBound(crr, 2)
& && && &brr(m, j) = crr(i, j)
& && & Next
& && & brr(d(crr(i, 1)), 7) = brr(d(crr(i, 1)), 7) + crr(i, 7)
& && & brr(d(crr(i, 1)), 8) = brr(d(crr(i, 1)), 8) + crr(i, 8)
& & End If
Sheet2.Range(&a1&).Resize(m, UBound(crr, 2)) = brr
Set d = Nothing
阅读权限95
在线时间 小时
把靠上的重复行删除?那我再修改一下
阅读权限95
在线时间 小时
Sub 按钮1_单击()
Dim crr, brr, d
Dim n As Variant
Dim i As Long
Dim j As Long
Set d = CreateObject(&scripting.dictionary&)
n = Sheet1.[a65536].End(xlUp).Row
crr = Sheet1.Range(&A1:I& & n)
drr = Array(2, 3, 4, 5, 6, 9)
ReDim brr(1 To UBound(crr), 1 To UBound(crr, 2))
For i = 1 To UBound(crr)
& & If Not d.exists(crr(i, 1)) Then
& && & m = m + 1
& && & d(crr(i, 1)) = m
& && & For j = 1 To UBound(crr, 2)
& && && &brr(m, j) = crr(i, j)
& && & Next
& && & x = d(crr(i, 1))
& && & brr(x, 7) = brr(x, 7) + crr(i, 7)
& && & brr(x, 8) = brr(x, 8) + crr(i, 8)
& && & For n = 0 To UBound(drr)
& && && & brr(x, drr(n)) = crr(i, drr(n))
& && & Next
& & End If
Sheet2.Range(&a1&).Resize(m, UBound(crr, 2)) = brr
Set d = Nothing
阅读权限95
在线时间 小时
Sub 删除重复行()
&&Dim i%, r%
&&Dim rng As Range
&&Dim d As Object
&&Set d = CreateObject(&scripting.dictionary&)
&&r = Cells(Rows.Count, 1).End(xlUp).Row
&&xm = &&
&&For i = r To 1 Step -1
& & If Not d.Exists(Cells(i, 1).Value) Then
& && &d(Cells(i, 1).Value) = i
& & Else
& && &k = d(Cells(i, 1).Value)
& && &Cells(k, 7) = Cells(k, 7) + Cells(i, 7)
& && &Cells(k, 8) = Cells(k, 8) + Cells(i, 8)
& && &If rng Is Nothing Then
& && &&&Set rng = Rows(i)
& && &Else
& && &&&Set rng = Union(rng, Rows(i))
& && &End If
& & End If
&&Next
&&If Not rng Is Nothing Then
& & rng.Delete
&&End If
End Sub
复制代码
阅读权限95
在线时间 小时
详见附件。
17:14 上传
点击文件名下载附件
8.61 KB, 下载次数: 9
阅读权限10
在线时间 小时
感谢，感谢。虽然不是很懂正在学习中。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1359|回复: 7
关于用VBA代码生成的excle文件打不开的问题
阅读权限20
在线时间 小时
本帖最后由 ruanyb0721 于
21:09 编辑
用下面一段代码
ActiveWorkbook.SaveCopyAs Filename:= _
& && &&&ThisWorkbook.Path & &\& & &工作表& & &.xlsx&
生成的文件打开时显示为“Excel无法打开文件&工作表.xlsx&，因为文件格式或文件扩展名无效。请确定文件未损坏，并且文件扩展名与文件的格式匹配。”
& &请指点，用的是excle2013。
阅读权限95
在线时间 小时
你的原文件 是XLS格式的么？？
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 ruanyb0721 于
21:25 编辑
wudixin96 发表于
你的原文件 是XLS格式的么？？
原文件是XLSM格式。
阅读权限20
在线时间 小时
顶上去，没有人能帮忙吗，拜托了，在线等。
阅读权限95
在线时间 小时
ActiveWorkbook.SaveCopyAs Filename:= _
& && &&&ThisWorkbook.Path & &\& & &工作表& , xlWorkbookDefault
阅读权限20
在线时间 小时
wudixin96 发表于
ActiveWorkbook.SaveCopyAs Filename:= _
& && &&&ThisWorkbook.Path & &\& & &工作表& , xlWork ...
显示 “缺少：命名参数”呢？
阅读权限10
在线时间 小时
学习了。。。。
阅读权限95
在线时间 小时
& & & & & & & &
ruanyb0721 发表于
顶上去，没有人能帮忙吗，拜托了，在线等。
SaveCopyAs是将工作簿的副本存为新文件，如果原文件是.xlsm格式，新文件也应是.xlsm格式。
把&工作表.xlsx&的扩展名改为&工作表.xlsm&，这个文件就能打开了。
如果确需把.xlsm格式的文件存为.xlsm格式，使用SaveAs(另存为)试试。(可以录制宏，看效果)
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师