Excel VBA：共ABCDEFGHIJ列，实现如果BCDEF 5列数据都excel相同列合并的行，则合并成一行，同时H列相加，A列顺序编号

来源：蜘蛛抓取(WebSpider) 时间：2015-05-05 23:53 标签： excel a列相同b列合并
Excel用VBA 处理数据 取第一列名字相同的行以TXT格式存放
[问题点数：41分]
Excel用VBA 处理数据 取第一列名字相同的行以TXT格式存放
[问题点数：41分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2013年11月 VB大版内专家分月排行榜第二
2012年9月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。查看: 1708|回复: 5|
在线时间2 小时经验1514 威望0 性别男最后登录注册时间阅读权限50UID45518积分1714帖子精华0分享0
EH高级, 积分 1714, 距离下一级还需 286 积分
积分排行628帖子精华0微积分0
如何取得一列或者一行最后有数据的单元格
1、某一列我知道：[a65536].end(xlup)
取得a列最后一个有数据的单元格
按照他可以求得最后一个有数据单元格的行和列
行：irow=[a65536],end(xlup).row
2、如果要求某一行中最后一个单元格，如何处理？
比如a行：iv1.end(xlleft)是不是这样？
另：longIII你有没有msn，可否告诉，以方便以后像这样的小问题请教你？
猜你喜欢看
欢迎登陆 /
excelhome是我家！
在线时间25 小时经验2564 威望0 性别男最后登录注册时间阅读权限90UID58528积分3614帖子精华3分享0
EH能手, 积分 3614, 距离下一级还需 1086 积分
积分排行269帖子精华3微积分0
End(xlToRight)
在线时间0 小时经验1392 威望0 性别男最后登录注册时间阅读权限50UID79465积分1392帖子精华0分享0
EH高级, 积分 1392, 距离下一级还需 608 积分
积分排行761帖子精华0微积分0
一行最后一个：Range("IV1").End(xlToLeft).Column
工作是越做越多，不做时没有，要做时却永远做不完！
TELL:1399937****
在线时间2 小时经验1514 威望0 性别男最后登录注册时间阅读权限50UID45518积分1714帖子精华0分享0
EH高级, 积分 1714, 距离下一级还需 286 积分
积分排行628帖子精华0微积分0
非常感谢上面几位的帮助，终于搞定了Sub 取其他()
'Sheets("Sheet4").Cells(1, 7) = Workbooks("d:/vba/vba第一步/入门练习.xls").Worksheets("sheet2").Range("a1")
'Sheets("Sheet4").Cells(13, 7) = "=d:\vba\vba第一步\[入门练习.xls]Sheet2!a1"
'Sheets("Sheet4").Cells(13, 7) = "=[入门练习.xls]Sheet2!a1"
'cells(12,7)
Dim irow As Integer
Dim jcolumn As Integer
irow = [d65536].End(xlUp).Row
jcolumn = [d65536].End(xlUp).Column
MsgBox "第4列最后一个数值所在的行和列分别为:" & irow & "和" & jcolumn
Cells(12, 7) = [iv23].End(xlToLeft).Row
Cells(13, 7) = [iv23].End(xlToLeft).Column
Cells(14, 7) = [a23].End(xlToRight).Row
Cells(15, 7) = [a23].End(xlToRight).Column
Cells(16, 7) = [d1].End(xlDown).Row
Cells(17, 7) = [d1].End(xlDown).Column
欢迎登陆 /
excelhome是我家！
在线时间2 小时经验1514 威望0 性别男最后登录注册时间阅读权限50UID45518积分1714帖子精华0分享0
EH高级, 积分 1714, 距离下一级还需 286 积分
积分排行628帖子精华0微积分0
4、四种情况分别求某行某列最后一个有数值单元格；
4.1求A列最后一个有数值单元格；两种方法：a.cells(2,1)=[a65536].end(xlup)
b.cells(3,1)=[a1].end(xldown)
4.2求第一行最后一个有数值单元格；两种方法：a.cells(3,1)=[a1].end(xltoright)
b.cells(4,1)=[iv1].end(xltoleft)Sub 取其他()'Sheets("Sheet4").Cells(1, 7) = Workbooks("d:/vba/vba第一步/入门练习.xls").Worksheets("sheet2").Range("a1")'Sheets("Sheet4").Cells(13, 7) = "=d:\vba\vba第一步\[入门练习.xls]Sheet2!a1"'Sheets("Sheet4").Cells(13, 7) = "=[入门练习.xls]Sheet2!a1"'cells(12,7)Dim irow As IntegerDim jcolumn As Integerirow = [d65536].End(xlUp).Rowjcolumn = [d65536].End(xlUp).ColumnMsgBox "第4列最后一个数值所在的行和列分别为:" & irow & "和" & jcolumnCells(12, 7) = [iv23].End(xlToLeft).RowCells(13, 7) = [iv23].End(xlToLeft).ColumnCells(14, 7) = [a23].End(xlToRight).RowCells(15, 7) = [a23].End(xlToRight).ColumnCells(16, 7) = [d1].End(xlDown).RowCells(17, 7) = [d1].End(xlDown).ColumnEnd Sub
欢迎登陆 /
excelhome是我家！
在线时间33 小时经验15339 威望18 性别男最后登录注册时间阅读权限95UID54513积分16389帖子精华3分享0
积分排行20帖子精华3微积分0
你好，我没有MSN，连QQ也被封了不过我一般都在这里，你可以给我短消息
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&利用EXCEL VBA实现财务数据的高效汇总修改_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
&&¥2.00
&&¥2.00
喜欢此文档的还喜欢
利用EXCEL VBA实现财务数据的高效汇总修改
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢EXCEL　VBA同行字符串比较我希望在B、C、D列内容找到与A列一样的字符标颜色，如图中所示第一行把B、C、D中有与A列相同连续的ab字符表红色。用VbA实现，原来有个代码不能完全匹配，懂的帮忙修改下，附代码，代码中只要有A列某个字符就会变色，不满足我的要求。
EXCEL　VBA同行字符串比较我希望在B、C、D列内容找到与A列一样的字符标颜色，如图中所示第一行把B、C、D中有与A列相同连续的ab字符表红色。用VbA实现，原来有个代码不能完全匹配，懂的帮忙修改下，附代码，代码中只要有A列某个字符就会变色，不满足我的要求。 10
我试试今天能不能做出来
做出来了，效果如下图所示代码如下Sub colorX()'QQ:'代号【复仇之牙】'于 12:50 修改完成Dim x As IntegerDim y As IntegerDim z As IntegerFor r = 1 To 10For c = 2 To 4x = Len(Cells(r, 1))y = Len(Cells(r, c))z = y - x + 1For i = 1 To zIf Mid(Cells(r, c), i, x) = Mid(Cells(r, 1), 1, x) ThenCells(r, c).Characters(Start:=i, Length:=x).Font.ColorIndex = 3End IfNextNextNext'如果此条回答对你有帮助，请到 艾克斯杂货铺 逛逛（在某宝的店铺里搜索）'如果此条回答为你节约了2小时以上的时间'希望你能在我的店铺花掉你一个小时的工资'等价交换End Sub
你的代码一次只对比一个字符，所以会出现错误
我也学到了不少东西
这个代码只能对比前10行的
提问者 的感言：你就是当代的活雷锋，太感谢了！
其他回答 (1)
晚上给你答案
给点时间做excel相关问题到
相关知识等待您来回答
微软专区领域专家

我要回帖

更多关于 excel a列相同b列合并 的文章

 

随机推荐