查看: 2006|回复: 9
关于merge的应用，是我代码写的有问题，还是我电脑运行太慢？
阅读权限20
在线时间 小时
我写了一段代码，目的是把从1-35行从A至N列每一行的内容合并到一个单元格中，具体代码如下：
Sub Mergeemailcontent()
& & Dim rng As Range, Str As String， i As Byte
& & For i = 1 To 35
& & With Range(&Ai:Ni&)
& && &&&For Each rng In Range(&Ai:Ni&)
& && && && && & Str = Str & rng.Text
& && &&&Next rng
& && &&&Application.DisplayAlerts = False
& && &&&.Merge& && && &
& && &&&Application.DisplayAlerts = True
& && &&&.HorizontalAlignment = xlCenter
& && &&&.VerticalAlignment = xlCenter
& && &&&.Value = Str
& & End With
& & Next i
可是，我写完之后运行，excel就会变成没有响应状态，我等了很久，只好把excel强制关闭了。关于代码，我检查了很多遍，貌似没有什么错误啊。难道是我电脑反应太慢，需要等的更久一些才能处理完？可是我要处理的数据量也不大啊？请高手帮忙解答一下？我到底犯了什么错，程序会运行如此缓慢？谢谢啦！
阅读权限95
在线时间 小时
Range(&Ai:Ni&)&&这个是什么意思？
阅读权限95
在线时间 小时
Sub Mergeemailcontent()
& & Dim rng As Range, Str As String, i As Byte
& & For i = 1 To 35
& && &&&For Each rng In Range(&A& & i & &:N& & i)
& && && && && & Str = Str & rng.Text
& && &&&Next rng
& && &&&With Range(&A& & i & &:N& & i)
& && && && &Application.DisplayAlerts = False
& && && && &.Merge
& && && && &Application.DisplayAlerts = True
& && && && &.HorizontalAlignment = xlCenter
& && && && &.VerticalAlignment = xlCenter
& && && && &.Value = Str
& && &&&End With
& & Next i
End Sub复制代码
阅读权限20
在线时间 小时
mineshine 发表于
为什么要用“A” & i 这种格式才行呢？
阅读权限95
在线时间 小时
I是变量，你的写法把它当字母用了
阅读权限95
在线时间 小时
有一个函数叫JOIN
先把数据源赋值数值，再循环数组的第一维即对应行，进行JOIN+INDEX组合
再返回给结果区域。
速度应该会快很多。
阅读权限20
在线时间 小时
各位，又遇到问题了。。。
我按照我那个代码，把range 改成三楼朋友修改的的方法，确实可以很快运行出来了。但是，我发现，每一行内容都把该行上面所有行的内容都包括进去了，也就是说：第一行合并之后显示原来第一行内容；第二行合并之后显示前两行内容；第三行合并之后显示前三行内容。。。。可是我想要的效果是某一行只合并该行内容，并不想要其他行的内容，这个代码该怎么改呢？谢谢啦
阅读权限95
在线时间 小时
Sub Mergeemailcontent()
& & Dim rng As Range, Str As String, i As Byte
& & For i = 1 To 35
& && &&&Str=&&
& && &&&For Each rng In Range(&A& & i & &:N& & i)
& && && && && & Str = Str & rng.Text
& && &&&Next rng
& && &&&With Range(&A& & i & &:N& & i)
& && && && &Application.DisplayAlerts = False
& && && && &.Merge
& && && && &Application.DisplayAlerts = True
& && && && &.HorizontalAlignment = xlCenter
& && && && &.VerticalAlignment = xlCenter
& && && && &.Value = Str
& && &&&End With
& & Next i
End Sub复制代码
阅读权限20
在线时间 小时
谢谢楼上的，又有一个小问题出现了，
我原来的表格中某些单元格内字体是有颜色的，我想在合并之后那些有颜色的字体还保留原来的颜色不变，这个可以做到吗？应该怎么写代码呢？
阅读权限50
在线时间 小时
没有附件没有真相
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师怎样用VBA代码判断某列自动筛选条件下显示的数据是完全相同的
全部答案（共1个回答）
Excel(2007版) 的筛选对象及其属性关系图可以在这里看到：/jamiechen/album/item/e620b963e540.html#最大的麻烦是：Excel把同一个字段的筛选条件按三种不同的情况建立了不同的对象及属性结构（2003版的可能没有第三种情况，因为2003版最多只能设置2个条件）：1个条件：直接使用 .Criteria1 属性记录此条件；2个条件：分别直接使用 .Criteria1、.Criteria2 属性记录这两个条件；3个及以上条件：.Criteria1变成了1个Variant对象，在其下建立 .Criteria(n) 属性集来记录这些条件，不使用 .Criteria2；所以，在VB相关信息DVB-H中的时间分片技术是什么？vb1的功效与作用是什么？缺乏vb1会怎...VBS不使用VB运行库运行而是用什么执行...Stagesa.vbs病毒的特点是什么？VBScript的作用是什么，？为什么在妊娠期妈妈要摄入充足的VB2?DVBH（早期为DVBX）是DVB组织为...结婚台风规划被顾客vb 好几个还鬼igu在网上看到这种vb1，vb1的功效与作用...水捞饭会损失什么营养？vb播放音乐vb杨辉三角vb程序设计A中检查一个Sheet的筛选设置情况有点麻烦，我写的样例代码如下，请参考：Sub MyMacro1()
Dim i As Integer, j As Integer, Str
'检查是否设置了自动筛选
If ActiveSheet.FilterMode = False Then
MsgBox "没有设置自动筛选，请先设置好了再试！", vbCritical
'On Error Resume Next
With ActiveSheet.AutoFilter.Filters
'按所有筛选字段检查
For i = 1 To .Count
'检查该字段是否有设置筛选条件
With .Item(i)
If .On Then
Select Case .Count
'有一个筛选条件
Str = .Criteria1
MsgBox "第 " & i & " 个字段有筛选条件：" & Str & "（1 of 1）"
'有两个筛选条件
Str = .Criteria1
MsgBox "第 " & i & " 个字段有筛选条件：" & Str & "（1 of 2）"
Str = .Criteria2
MsgBox "第 " & i & " 个字段有筛选条件：" & Str & "（2 of 2）"
'有三个及以及筛选条件
Str = .Criteria1
For j = 1 To .Count
MsgBox "第 " & i & " 个字段有筛选条件： " & Str(j) & " （" & j & " of " & .Count & "）"
End Select
End WithEnd Sub
打开Excel表格，点击小箭头，在出现的下拉框里点击“全部”选项，就可以全部显示出来本列的所有数据了。试试看。给你做了个剪图供你参照一下。
现在用这种方法试一下,因为我用的excel2003,只有65536行,所以我的例子只到了65536行,不知道你10几万个数是怎么安放的,只能看着修改.由于文件太...
ACCESS中的筛选是一个对资料表临时的查询，它不会保存筛选的结果(关闭资料表后即消失)，并且它只能作一些简单的筛选，远远没有查询的功能强；而查询是一个对资料表...
在EXCEL菜单中，数据---有效性---有效性条件---允许：序列，然后在来源中填写你要的数据，并有逗号隔开。
筛选法操作说明：1、设置条件区域E1:H2。2、一次筛选：选中A1:C15,“数据/筛选/高级筛选/将筛选结果复制到其他区域/条件区域/E1:E2/复制到/E5...
答: 科隆的地鐵系統是 kvb 自動售票機 如何使用
答: 还是买本参考资料看看吧，如果三言两语能描述清楚，种地的也编程了。
答: 除非你能有权限直接访问对方数据库，而且还要知道数据库表的关系以及表中数据条目的含义。否则是无法修改的,正常情况下对于数据的读取修改都是在服务器后台进行，而且会有...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：12345678910111213Word文档内部检索重复内容的VBA程序代码及使用说明
引言：现在信息量极大丰富，计算机的使用带来了很多的方便。但同时，在整理各种资料、撰写综述性文章、申请书、毕业论文等等情况下，特别是涉及到长文档的时候，往往会出现内容的重复出现。通常，这种重复是允许出现的，但是从文档质量来说，重复的内容在不同位置出现时，最好能够做一个变通——类似的意思，换一种说法，人们读起来会流畅的多。可是很多人的习惯上是大量使用了Copy和Paste，会使读者感觉不太舒服，如果是评审人看到的话，往往就会行使其手中的权力——Pass了另外一个困扰就是参考文献的重复出现问题。虽然使用EndNote等类似的文献管理软件非常方便，也可以解决这个问题。但我想大部分用户可能不太会用，或者不习惯使用，这从我身边的同事、同学、学生可以知道。因此，找到一些简单的手段解决这些问题非常重要。我从网上到处去找这样的小程序，发现了利用Wod宏功能实现的两段内容，挺不错的。经过实验能够使用，现在演示一下，并加以详细的解释说明，方便更多的人使用。说明：使用者要能够熟练使用wod，稍微懂一点VisualBasic语言，当然完全不懂也没有太大关系，只要按照下面做就可以，只是如果懂一点的话，更容易看懂代码，并且可以进行一些改造，使其更适合个人使用。我用来验证的系统为Win7旗舰版和Wod2003。操作演示：启动Wod2003，如果宏安全性高的话，无法使用宏功能，要进行设置“工具”——“宏”——“安全性”——“中”或“低”，再重新启动Wod2003即可。进入“工具”——“宏”——“VisualBasic编辑器”（或者使用快捷键Alt+F11直接进入），出现这个界面：
& 果果文库所有资源均来源于互联网，仅供网友学习交流，若侵犯了您的权益，请联系我们予以删除。
9674&&人浏览
5815&&人浏览
15151&&人浏览
18217&&人浏览
132&&人浏览
5425&&人浏览
835&&人浏览
19942&&人浏览
19390&&人浏览
17418&&人浏览
16965&&人浏览
12643&&人浏览
5264&&人浏览
7358&&人浏览
2849&&人浏览
本文标题：Word文档内部检索重复内容的VBA程序代码及使用说明 链接地址：
2013- Inc. All Rights Reserved 果果文库 版权所有 联系站长: ; 经营许可证编号:浙ICP备号常用教程：
您现在的位置： > 教程 >
禁止修改Excel当前工作薄所有工作表单元格数据的VBA源代码
20:17:28 | ReadNums | 9985 | 标签
　　关于禁止修改工作表数据的方法，俺已在很多地方看到过，并且已学会！
　　但，终究觉得不适合自己的需求，有很多介绍的方法，说的都是如何加密工作表，加密数据区域，然后再怎么设置密码等，使用此方法来禁止修改任何数据！
　　以上的这种方法，针对的仅仅是当前的工作表而已，如果您的工作薄有相当多的工作表，您要禁止别人修改数据，你每个工作表都要手动设置吗？如果没啥好办法，可以手动完全设置看看瞧，工作表一多，人都烦了，哪里有心情再设置哈！
　　俺也是受了一肚子窝囊气，觉得以上的方法不尽己愿，故而花了一下午时间，决心自己学习VBA，自己编写代码来解决自己的实际问题！小有所成，拿出来与大家分享先！
　　如下图，为第一种代码！此代码放在“ThisWorkbook“模块里面！
　　上述代码实现的功能是：无论您当前的工作薄有多少个工作表，无论您的工作表中有多少条数据，任何一个单元格的数据都无法修改！在不能修改数据的前提下，不弹出任何提示信息，仅将修改后的数据恢复到原来没有修改的状态，实现禁止修改的目的！
　　在上图代码的基础上，加以分析再琢磨，就得出了如下图的代码了！此代码放在“ThisWorkbook“模块里面！
　　上述代码实现的功能是：无论您当前的工作薄有多少个工作表，无论您的工作表中有多少条数据，如果要修改被限制的列的数据，则需要输入密码，密码正确则可以修改，密码错误则无法修改！在不能修改数据的前提下，不弹出任何提示信息，仅将修改后的数据恢复到原来没有修改的状态，实现禁止修改列数据的目的！
问题未解决：
内容实用原创，讲得很好。
有问题请在线咨询。}