EXCEL VBA提取内容到指定位置

发布网友 发布时间：2022-04-22 13:50

我来回答

共4个回答

热心网友 时间：2023-11-07 07:14

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

热心网友 时间：2023-11-07 07:15

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

热心网友 时间：2023-11-07 07:15

提取？将数据放到新位置后，删除原来的数据？追问只是提取
像上面代码一样，但是上面代码是复制
因为是文本来的
复制来后公式就用不了，所以只想提取

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

热心网友 时间：2023-11-07 07:16

Sub 提取内容到指定位置()
[k11]=Cells(4 ^ 8, 11).End(3).Resize(1, 14)
End Sub追问我的是提取K列最后单元所在行
提取K列第11行

现在第11行没结果

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