[已解决]如何获取选区最大列号？

jessylake · 发表于 2015-3-26 08:10

获取选区最大列号.zip (15.08 KB, 下载次数: 9)

qh8600 · 发表于 2015-3-26 08:36

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

本帖最后由 qh8600 于 2015-3-26 08:40 编辑

最大列号=Selection.Cells(Selection.Cells.Count).Column

ppp710715 · 发表于 2015-3-26 08:59

Sub test()
Dim rg As Range
Set rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
sr = rg.Address(0, 0)
k = InStr(rg.Address(0, 0), ":")
If k > 0 Then
MsgBox "最大列号是" & Mid(sr, k + 1, 1)
Else
MsgBox "最大列号是" & Left(sr, 1)
End If
End Sub

复制代码

获取选区最大列号.zip (16.63 KB, 下载次数: 1)

26759761@qq.com · 发表于 2015-3-26 09:02

Sub x()
ar = Split(Selection.Address, "$")
最大列号 = Asc(ar(IIf(UBound(ar) > 2, 3, 1))) - 64
End Sub

jessylake · 发表于 2015-3-26 09:04

qh8600 发表于 2015-3-26 08:36
最大列号=Selection.Cells(Selection.Cells.Count).Column

你这一句好简单啊，但不知道怎么理解，Selection.Cells.Count统计出选区单元格总数，Cells(Selection.Cells.Count) 这个怎么理解？

26759761@qq.com · 发表于 2015-3-26 09:08

Sub x()
ar = Split(Selection.Address, "$")
最大列号 = Asc(ar((UBound(ar) > 2) * -2 + 1)) - 64
End Sub

爱疯 · 发表于 2015-3-26 09:11

Sub test()
Dim x
Set x = Selection
If TypeName(x) = "Range" Then
MsgBox x.Cells.Column, , "首列的列号"
MsgBox x.Cells.Column + x.EntireColumn.Count - 1, , "尾列的列号"
End If
End Sub

jessylake · 发表于 2015-3-26 09:17

非常感谢楼上各位老师的热情回复！谢谢！

qh8600 · 发表于 2015-3-26 09:40

jessylake 发表于 2015-3-26 09:04
你这一句好简单啊，但不知道怎么理解，Selection.Cells.Count统计出选区单元格总数，Cells(Selection.Cel ...

Cells(Selection.Cells.Count) 最后一个单元格
整句的意思是，选中单元格区域内最后一个单元格的列号

jessylake · 发表于 2015-3-26 11:15

qh8600 发表于 2015-3-26 09:40
Cells(Selection.Cells.Count) 最后一个单元格
整句的意思是，选中单元格区域内最后一个单元格的列号

谢谢，明白了，cells（）括号中如果是一位数的话，表示这组单元格的序号，对吗？

		自动登录	找回密码
密码			注册

[已解决]如何获取选区最大列号？

评分