Question

用 VB 找到excel 最后 一行，并给最后一行下一行第一列赋值

Answer 1

Worksheets("export").Range("num"&":"&"num").Value = worksheets("import").Range("1:1").Value

追问

看不懂

r = Range("a65536").End(xlUp).Row + 1
Worksheets(2).[a& r] = "合计"
第二句有问题通不过

Answer 2

cells(65536,1).end(xlup).row+1

追问

找最后一行，我知道。但赋值时如何引用找到的行

r = Range("a65536").End(xlUp).Row + 1
Worksheets(2).[a& r] = "合计"
第二句有问题通不过

追答

r = Range("a65536").End(xlUp).Row + 1
Worksheets(2).Range("A" & r) = "合计"

追问

这个已经成功了
那么最后一列，第二个单元格可否这样写Worksheets(2).Range("b" & r) = sum(b2:b&r-1)

追答

= Application.Sum(Range(Cells(2, 2), Cells(r - 1, 2)))
2行，B列， R行，B列。

追问

问题，圆满解决，谢谢高人，以后有问题还找你。