如何根据规律预测指定数字的行列位置？

作者：绿色风分类：时间：2022-08-18 浏览：166

楼主
rongjun

Q：如何根据规律预测指定数字的行列位置？
按如图所示规律填充正整数，如何预测L1单元格数字的行列位置？

A： 1、公式法：

="位置"&IF(MOD(CEILING(SQRT(L1),1),2),MIN(CEILING(SQRT(L1),1)^2-L1,INT(SQRT(L1)))+1,CEILING(SQRT(L1),1)-MAX(0,CEILING(SQRT(L1),1)^2-L1-INT(SQRT(L1))))&"行"&SUBSTITUTE(ADDRESS(1,IF(MOD(CEILING(SQRT(L1),1),2),CEILING(SQRT(L1),1)-MAX(0,CEILING(SQRT(L1),1)^2-L1-INT(SQRT(L1))),MIN(CEILING(SQRT(L1),1)^2-L1,INT(SQRT(L1)))+1),4),1,"列")

2、自定义函数法：

Function RowCol(R) As String
Dim i, j, Row, Col As Integer
Dim Str As String
On Error Resume Next
i = Int(Sqr(R))
j = Application.WorksheetFunction.Ceiling(Sqr(R), 1)
Row = Application.WorksheetFunction.Min(j ^ 2 - R, i) + 1
Col = j - Application.WorksheetFunction.Max(0, j ^ 2 - R - i)
If j Mod 2 Then
Str = Cells(Row, Col).Address
Else
Str = Cells(Col, Row).Address
End If
RowCol = "位置" & Split(Str, "$")(2) & "行" & Split(Str, "$")(1) & "列"
End Function

如何根据规律预测指定数字的行列位置？.rar

2楼
wnianzhong

学习了,谢谢!

3楼
xihabang

打不开呢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表