Sub 填充公式()i = [b65536].End(3).Row - 1For k = 1 To i Cells(k + 1, 3) = Cells(k, 1) & Cells(k + 1, 2)NextEnd Sub
获取B列最后一行数据，可以使用End方法，例如：n = Range(B65536).End(xlUp).Row()
