Question

EXCEL VBA提取内容到指定位置

Sub 提取内容到指定位置()
Cells(4 ^ 8, 11).End(3).Resize(1, 14).Copy [k11]
End Sub
如何将Copy修改成提取

Answer 1

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得到结果如下：

Answer 2

Sub 提取内容到指定位置()
    a = Cells(4 ^ 8, 11).End(3).Resize(1, 14)
    [k11:x11] = a
End Sub

Answer 3

提取？将数据放到新位置后，删除原来的数据？

追问

只是提取
像上面代码一样，但是上面代码是复制
因为是文本来的
复制来后公式就用不了，所以只想提取

追答

公式？
文本？
你改公式不就行了。

Answer 4

Sub 提取内容到指定位置()
[k11]=Cells(4 ^ 8, 11).End(3).Resize(1, 14)
End Sub

追问

我的是提取K列最后单元所在行
提取K列第11行

现在第11行没结果

追答

原代码的功能应该是将复制的内容粘贴到K11单元格吧？！
现在怎么又成了【提取K列第11行】？