weixin_58444518的博客

获取的逻辑：先获取左上角的单元格行列信息（通过row和column函数），然后获取要找的值在这个区域的相对位置（match函数），行与行相加得到最终的行，列与列相加得到最终的列，再通过address函数转化为单元格地址。几个函数的使用方法自行查询，这里不多介绍。获取单元格地址第一种=ADDRESS(ROW(B3)+MATCH(MAX(B3:B9),B3:B9,0)-1,COLUMN(B3),4)第二种=CHAR(64+COLUMN(B3))&(ROW(B3)+MATCH(MAX(B3:

1.利用自带的columns函数如Columns(27).Address表示27列的地址，也就是"$AA:$AA"2.使用split函数按照字符"$"进行拆分得到数组，索引为2的就是我们需要的列字母Function ColLetter(Num As Long) As String ColLetter = Split(Columns(Num).Address, "$")(2)End Function...

ExcelDim conn As New ADODB.Connectionconn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\adta\data.xlsx;extended properties=""excel 12.0;HDR=YES"""AccessstrConn = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Adata.accdb"Mysql数据

这里给两个写好的函数1.数字转为字母，输入数字即可转化为列号(这里最大到ZZ)，比如：NumToLetter(28)="AB"Function NumToLetter(num As Long) As StringDim alphabet()'a-z字母表alphabet() = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U

Sub test()'输入需要的数字examRoomCol = InputBox("请输考场号所在列？例：14")If StrPtr(examRoomCol) = 0 Then MsgBox "点击了取消或是直接关闭了窗口。"Else If Len(examRoomCol) = 0 Then MsgBox "输入了空白值。" ElseIf IsNumeric(examRoomCol) = False Then MsgBox "输入...