想知道某单元格右边第一个空单元格怎么表示

[zhangwwt]

比如
1 【】
2 3 【】
4 5 【】
5 6 7 【】

方括号怎么表示？？？
原想来 用 cells(1,1).end(xltoleft).adress(0,0) 但这只能找到最后的非空单元格
我想找 第一个空单元格 怎么写呢？？？

[不会编程的财务不是老司机]

[Quote=引用 2 楼 的回复:]

会计兄的.End(xlToRight).offset(0,1).address稍微有点小问题，

第1行会有错误，

其它几行都没问题。
[/Quote]

兄台有什么问题呢？

我试了一下

?cells(1,1).End(xlToRight).offset(0,1).address

返回值没错，请再指点一下。

[不会编程的财务不是老司机]

能找到最后一个非空单元格吗？我觉得应该是.End(xlToRight)吧。

如果是找最右边的第一个空单元格.End(xlToRight).offset(0,1).address

[dsd999]

会计兄的.End(xlToRight).offset(0,1).address稍微有点小问题，

第1行会有错误，

其它几行都没问题。

[dsd999]

[Quote=引用 3 楼 的回复:]
引用 2 楼 的回复:

会计兄的.End(xlToRight).offset(0,1).address稍微有点小问题，

第1行会有错误，

其它几行都没问题。


兄台有什么问题呢？

我试了一下


VB code



?cells(1,1).End(xlToRight).offset(0,1).address




返回值没错，请再指点一下……
[/Quote]

第一行只有1个值，.end(xlToRight)就是第一行的最后一列，再offset（0，1）就越界了。

我的是2003。

[不会编程的财务不是老司机]

[Quote=引用 4 楼 的回复:]

引用 3 楼 的回复:
引用 2 楼 的回复:

会计兄的.End(xlToRight).offset(0,1).address稍微有点小问题，

第1行会有错误，

其它几行都没问题。


兄台有什么问题呢？

我试了一下


VB code



?cells(1,1).End(xlToRight).offset(0,1).address



……
[/Quote]

说的是，得加个判断。或者从右到左。

[dsd999]

对，从右到左可能更好。

[WXGMWTECH]

'查找活动单元格右边第一个空白单元格 Sub aa() If ActiveCell.Column <> Cells.Columns.Count Then If ActiveCell.Offset(0, 1) <> "" Then MsgBox ActiveCell.End(xlToRight).Offset(0, 1).Address Else MsgBox ActiveCell.Offset(0, 1).Address End If Else MsgBox "已到最右边" End If End Sub