根据表一中的数据，显示表二中对应行号excel 返回单元格行号中的内容

来源：蜘蛛抓取(WebSpider) 时间：2017-01-19 02:54 标签： 取非空单元格行号
点击表格中某一行中的某个单元格中的超链接/按钮，如何获取当前行号？_javascript_ThinkSAAS
点击表格中某一行中的某个单元格中的超链接/按钮，如何获取当前行号？
点击表格中某一行中的某个单元格中的超链接/按钮，如何获取当前行号？
内容来源： 网络
我用html做了一个表格，表格的特点如下：
表格的行代表一个对象，表格的列代表对象的某个属性；
表格第一列是用超链接表示的，表示对象的名称；
我想实现的效果是：点击名称那一列的某个超链接，获取超链接所在的那一行数据进行处理。我的想法是，点击超链接，获取到所在表格的行号，然后就可以对这一行每个单元格进行操作了。现在的问题是，该如何获取超链接所在的行号？
&script language="javascript"&
function Alert(_this){
var objTR=_this.parentNode.parentNode
alert("本行号＝"+objTR.rowIndex)
var obj=objTR.getElementsByTagName("td")
for (var i=0;i&obj.i++)
alert(obj[i].innerHTML)
&table border="1"width="37%"&
&td width="63"&name&/td&
&td width="68"&x1&/td&
&td width="62"&x2&/td&
&td width="75"&x3&/td&
&td&x4&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name1&/a&&/td&
&td width="68"&11&/td&
&td width="62"&12&/td&
&td width="75"&13&/td&
&td&14&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name2&/a&&/td&
&td width="68"&21&/td&
&td width="62"&22&/td&
&td width="75"&23&/td&
&td&24&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name3&/a&&/td&
&td width="68"&31&/td&
&td width="62"&32&/td&
&td width="75"&33&/td&
&td&34&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name4&/a&&/td&
&td width="68"&41&/td&
&td width="62"&42&/td&
&td width="75"&43&/td&
&td&44&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name5&/a&&/td&
&td width="68"&51&/td&
&td width="62"&52&/td&
&td width="75"&53&/td&
&td&54&/td&
&td width="63"&&a href=### onclick="Alert(this)"&name6&/a&&/td&
&td width="68"&61&/td&
&td width="62"&62&/td&
&td width="75"&63&/td&
&td&64&/td&
我的表格是用表格对象的insertRow和insertCell生成的，单元格里的超链接是用createElement（“A”）生成的，一是添加不了事件处理函数，添加了没有反应；二是通过别的方法添加了事件处理函数，函数执行时只打印this，显示为undefined，不知道什么原因？
&script language="javascript"&
function Alert(_this){
alert(_this.innerHTML)
var _a=document.createElement("a")
_a.innerHTML="test"
_a.onclick=function(){Alert(this)}
document.body.appendChild(_a)
PHP开发框架
开发工具/编程工具
服务器环境
ThinkSAAS商业授权：
ThinkSAAS为用户提供有偿个性定制开发服务
ThinkSAAS将为商业授权用户提供二次开发指导和技术支持
让ThinkSAAS更好，把建议拿来。
开发客服微信[求助]可以将表一中的一行复制到表二中的一行，且表一中的数…_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：142,795贴子：
[求助]可以将表一中的一行复制到表二中的一行，且表一中的数…收藏
可以将表一中的一行复制到表二中的一行，且表一中的数据变动的话，表二中的数据也相应变化？是整个一行全部弄过去，而不是一个单元格一个单元格的对应
凯德集团越南项目上海展出，越南房产仅30%可售予外国人
直接用等号 或 vlookup
选定表二中的区域，然后输入“=”等号，单击表一中的相同单元格，再按Ctrl+回车。
哈哈=表一!a1，横拉，下拉
用INDEX函数。如表一的数据在A1:Z100中，则表二的A1中输入“=INDEX(表一!$A$1:$Z$100,ROW(),COLUMN())”，用向下向右填充。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或我要文库申报
查看: 8906|回复: 2
如何用一句VBA代码获取单元格区域中有数据的最后单元格的行号？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: KevinChengCW
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 03以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 kevinchengcw 于
11:07 编辑
1. 用一句VBA代码取得工作表有数据区域的最后一行的行号。
2. 可以通过本测试所提供的附件的测试得到正确结果。
3. 用With ... End With语句不算行数，只以With语句中间的代码行数计算。
答题期限：15天（2月18日开帖）
正确答案可获5个技能分，第一个正确答案可得到额外的5个魅力值。
参考答案： Sub test()&&'一句代码
MsgBox ActiveSheet.UsedRange.SpecialCells(2, 23).Areas(ActiveSheet.UsedRange.SpecialCells(2, 23).Areas.Count).Row + ActiveSheet.UsedRange.SpecialCells(2, 23).Areas(ActiveSheet.UsedRange.SpecialCells(2, 23).Areas.Count).Rows.Count - 1
End Sub复制代码 Sub test2() 'with语句写法
With ActiveSheet.UsedRange.SpecialCells(2, 23)
& & MsgBox .Areas(.Areas.Count).Row + .Areas(.Areas.Count).Rows.Count - 1
End With
End Sub复制代码实现方法：查找使用区域有数据单元格会将单元格分成若干区域，查找最后区域的起始行号加行数减1即为最后数据行号。
15:14 上传
点击文件名下载附件
7.64 KB, 下载次数: 66
如何用一句VBA代码获取单元格区域中有数据的最后单元格的行号？
魅力值 +10
我的素材！
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 261, 距离下一级还需 239 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 pzh130 于
15:23 编辑
MsgBox &最后一行号是:& & Cells.Find(&*&, _
& && &SearchOrder:=xlByRows, LookIn:=xlValues, _
& && &SearchDirection:=xlPrevious).EntireRow.Row
MsgBox Split(Intersect([A:A], Cells.SpecialCells(xlCellTypeConstants).EntireRow).EntireRow.Address, &$&) _
& &(UBound(Split(Intersect([A:A], Cells.SpecialCells(xlCellTypeConstants).EntireRow).EntireRow.Address, &$&)))
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 87, 距离下一级还需 163 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by本帖子已过去太久远了，不再提供回复功能。

我要回帖

更多关于 取非空单元格行号 的文章

 

随机推荐