EXCEL VBA 选定第一行最后一个非空单元格

Question

如题，求帮助编写一条代码，能选定第1行（最好不仅限于第1行）的最后一个非空单元格，能加.sclect

Answer 1

sub a()
    dim n as integer,cl as range
    n=inputbox("请输入行号") * 1
    set cl=cells(n,columns.count).end(xltoleft)
    cl.select
end sub

Answer 2

Range("A1").End(xlToRight).Select追问

额。不好意思，求助有误，是选定第一行最后一个非空单元格的再右边一个

追答

Range("A1").End(xlToRight).offset(0,1).Select

本回答被提问者采纳

Answer 3

这样你满足吗：
Sheets("Sheet").UsedRange.Select