VBA查找指定工作表的a列最后一个非空单元格？

Question

工作簿里有多个工作表，要查找指定工作表的A列最后一个非空单元格，VBA代码怎么写？

Answer 1

Sheets("工作表名称").Cells(Rows.Count, 1).End(xlUp)
如果取行号：
Sheets("工作表名称").Cells(Rows.Count, 1).End(xlUp).Row
你这个工作表名称可以直接引用你单元格的值追问

Sub 保存()
Dim rng As Range, ws As Worksheet, rngs As Range

For Each ws In Worksheets
If ws.Name = Range("q1") Then
Set rng = Range("i1", [o1].End(xlDown)(1.1))
Set rngs = ws.Cells([a1].End(xlDown)(1.1), "a")
rng.Copy rngs
End If
Next ws
End Sub

这是我写的代码，为什么复制过去后是在A48380单元格向下复制的？

追答

你是不是这个意思Set rng = Range([i1], [o1].End(xlDown))