Excel可以利用VBA获得列最后的内容,并提取到制定位置。
软件版本:Office2007
方法如下:
1.将A列中最后的内容提取到C1中:
2.Alt+F11,输入代码如下:
Sub m()
x = Range("A65536").End(3).Row '将最后一个非空单元格的行号赋给变量x
Cells(1, "C") = Cells(x, "A") '将最后一个非空单元格赋给单元格A3
End Sub
3.F5执行代码,关闭VBA界面,返回Excel得到结果如下:
Sub 提取内容到指定位置()
a = Cells(4 ^ 8, 11).End(3).Resize(1, 14)
[k11:x11] = a
End Sub
提取?将数据放到新位置后,删除原来的数据?
Sub 提取内容到指定位置()
[k11]=Cells(4 ^ 8, 11).End(3).Resize(1, 14)
End Sub