查看: 1827|回复: 7
如何获取很多列中的某行的最大行号
阅读权限30
在线时间 小时
如果是A-Z都好办，现在我的列非常多，我是
想用数字来表达某列，然后再取最大行号，请问
该怎么做？
(14.02 KB, 下载次数: 17)
10:41 上传
点击文件名下载附件
阅读权限95
在线时间 小时
数据源统一字段，向下排列不好吗？这样的数据源统计起来那不是一般的费事、费时、费精力！！！
阅读权限30
在线时间 小时
& & & & & & & &
因为是各班组，所以需要不同的列，而且每个的标准又不一样，所以没有办法，有什么办法解决吗
各班组不同，没关系。你可以单独制作一列字段，叫班组名称啊。为何要如你那般做表 呢，自己挖坑啊制造障碍。&
阅读权限200
在线时间 小时
同意2楼意见，字段是可以灵活处理的。
或者分别保存为一个工作表，都比现在这要好用。
11:33 上传
点击文件名下载附件
18.35 KB, 下载次数: 23
阅读权限100
在线时间 小时
得到最大行号干嘛呢，这个表实在不规范呀。
阅读权限10
在线时间 小时
见附件。运行方法：选到“名单”这页，然后运行main。（因为里面索引了ActiveSheet，所以你先要选到这页）。另外目前实现成了一个sub，方便调测。估计你是想要搞成function吧，你可以自己改改，让输出里面的MaxRow参数即可。
Sub main()
Dim i& && && && && && && && && && && &As Long
Dim LastRow()& && && && && && & As Long
Dim LastColumn& && && && && && &As Long
Dim MaxRow& && && && && && && & As Long
'求这页一共有多少列
'****************************************************
LastColumn = ActiveSheet.Cells(1, 1).End(xlToRight).Column
ReDim LastRow(1 To LastColumn)
'****************************************************
'针对每列，求有多少有效行
'****************************************************
For i = 1 To LastColumn
& &
& & LastRow(i) = Cells(1, i).End(xlDown).Row
& &
& & If LastRow(i) = 65536 Then& && &'有的列是空的，会得到65536。将这种列的行数设为0
& && &&&LastRow(i) = 0
& & End If
& &
Next
'****************************************************
'求最大的行数
MaxRow = Application.WorksheetFunction.Max(LastRow)
End Sub复制代码
11:32 上传
点击文件名下载附件
15.81 KB, 下载次数: 8
阅读权限30
在线时间 小时
Sub aa()
& & Dim m, n, arr, brr, crr
& & Dim rng As Range
& & Set rng = Sheet10.UsedRange
& & arr = rng
& & brr = Application.WorksheetFunction.Transpose(arr)
& &ReDim crr(1 To UBound(brr, 1))
& & For m = 1 To UBound(brr, 1)
& && &&&n = 1
& && &&&Do While brr(m, n) && &&
& && && && &If n & UBound(brr, 2) Then
& && && && &n = n + 1
& && && && &Else
& && && && &n = n + 1
& && && && &GoTo 10:
& && && && &End If
& && &&&Loop
10:& && & crr(m) = n - 1
& & Next
& & Sheet10.Cells(UBound(brr, 2) + 2, 1).Resize(1, UBound(brr, 1)) = crr
End Sub复制代码
阅读权限30
在线时间 小时
不知道是不是这个意思
最新热点 /1
开学季，当当网ExcelHome图书一律5折，即日起至3月14日，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何设定一个公式或,以得到当前活动单元格的行号和列号?
见副表，重点在代码里面，在Sheet1表名称处右键单击，选择查看代码
第一行是激活Sheet1
第二行是返回活动单元格行号到单元格A2
第三行是返回活动单元格列号到单元格B1
PS:整个代码意思是
在工作表选择区域变更的时候
如果工作表是活动工作表（就是当前工作表，所以第一行要激活Sheet1），执行下两行代码
其他答案（共2个回答）
: =row()
得到当前活动单元格的列号使用函数: =COLUMN()
1、条件格式法：选中A2:A14,“格式/条件格式/条件1/公式/=COUNTIF($A$2:$A$14,A2)&1/格式/字体/字形/加粗/颜色/选...
1、只能使用“常规”格式而不能使用“文本”格式。否则公式不能计算。
2、至于希望得到文本型格式还是数值型格式，可以通过设计公式来实现而不是用设置单元格格式方法...
1、相对引用，复制公式时地址跟着发生变化，如C1单元格有公式：=A1+B1
当将公式复制到C2单元格时变为：=A2+B2
当将公式复制到D1单元格时变为...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
如何返回excel最大值所在行和内容
文章通过两个案例来说明返回excel最大值所在行号的函数和方法，可以使用idnex+match函数来实现。
案例一：返回excel最大值所在行号
　　Excel中match函数可以返回行号。如果是excel最大值所在行号，只需要加一个条件来获取最大值就可以。
　　如下图所示6组数据，用excel返回每组数据最大值所在行号，比如1组数据为：0.2,0.5,0.56,0.5，那么最大值是0.56，而0.56最大值所在行号是3行，返回3，其余的以此类推。
　　我们在A8单元格输入公式：=MATCH(MAX(A2:A5),A2:A5,0)，右拉复制即可得到其余组数的最大值所在行号。
案例二：获取最大值所对应的姓名行数据
　　返回excel最大值所在行的数据，用得最多的就是index+match函数嵌套完成。
　　如下图所示，返回B列销量最大值所在行对应的姓名。
　　Excel最大值计算很简单，使用max一类的函数都可以，A9单元格最大值使用公式：=MAX(B2:B6)轻松得到。
　　最大值所在行对应的姓名如何得到呢？B9单元格输入公式：=INDEX(A2:A6,MATCH(MAX(B2:B6),B2:B6,0))，回车，即可返回excel最大值所在行对应的数据。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------TA的最新馆藏[转]&[转]&}