Question

excel vba取得某列最后一个非空单元格的值，程序怎么编？

Answer 1

A列
Range("a" & Rows.Count).End(xlUp).Value

追问

把这个值复制、粘帖怎么编

谢谢你，但是显示"属性的使用无效"

追答

复制到B2
Range("a" & Rows.Count).End(xlUp).copy range("b2")

Answer 2

Arr =Cells(.Rows.Count, "").End(xlUp))