Question

如何用excel vba查找某一行最后一个非空单元格

在sheet1第一行中引用单元格的内容（a1:a5,也可能是a1:a8,引用的单元格数不固定）然后在sheet2第一行中的C1单元格之后（d1、e1.....）插入内容，要找到这行的最后一个非空单元格，并在这个单元格后再调用其它内容，该如何写代码。在这里先谢谢了！

Answer 1

可以用下面的语句：
最后一个值 = Sheets("sheet1").Range("A65535").End(xlUp).Value

用 col=range("C1").end(xltoright).column '找到最后非空一列
语句可能存在问题：当A1至A5数据连续时，该语句能返回正确
的结果，但当不连续时，将得不到最后一个非空结果
如
1
2

4
5
将只得到2，而不是5（其中3是空白，如果3有数值，将得到5）

Answer 2

col=range("C1").end(xltoright).column '找到最后非空一列
cells(3,col)即为你所想要的单元格