如何得到每行最后一个非空单元格的列标？？？

qust0312

“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号，有没有类似的语句来返回一行的最后一个非空单元格的列标？

xuexi2xuexi

下面返回第一行最后一个非空单元格所在列的列标
Split(Cells(1, Columns.Count).End(xlToLeft).Address(1, 1), "$")(1)

qust0312

xuexi2xuexi 发表于 2013-9-2 09:54
下面返回第一行最后一个非空单元格所在列的列标
Split(Cells(1, Columns.Count).End(xlToLeft).Address(1, ...

谢谢指点。这个语句返回的是字母，能直接返回数字吗？比如，这个句子返回的是H,能让直接返回8而不是H吗？

xuexi2xuexi

qust0312 发表于 2013-9-2 10:03
谢谢指点。这个语句返回的是字母，能直接返回数字吗？比如，这个句子返回的是H,能让直接返回8而不是H吗？

可以啊，如下
Cells(1, Columns.Count).End(xlToLeft).column

qust0312

是我想要的结果，谢谢啊。

jsxjd

1.     MsgBox Range("Iv1").End(xlToLeft).Column

复制代码

qust0312

想请教下，要是把这个语句用在循环中该怎么做啊？我想得到每一行最后一个非空单元的列数。

xuexi2xuexi

qust0312 发表于 2013-9-2 11:17
想请教下，要是把这个语句用在循环中该怎么做啊？我想得到每一行最后一个非空单元的列数。

假如要查找第2至第100行中“每一行最后一个非空单元的列数”，并把结果放到对应行的第一列，可以这样：

Sub 列数()
Dim i%
For i = 2 To 100
    Cells(i, 1) = Cells(i, Columns.Count).End(xlToLeft).Column
Next
End Sub

清风幽闲

Rows(1).SpecialCells(xlCellTypeLastCell).Column    或
Cells(1, Columns.Count).End(xlToLeft).Column

qust0312

清风幽闲 发表于 2013-9-2 12:01
Rows(1).SpecialCells(xlCellTypeLastCell).Column    或
Cells(1, Columns.Count).End(xlToLeft).Column ...

好的，问题解决了。谢谢