EXCEL VBA提取内容到指定位置

Posted 2023-04-25

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

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

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

参考技术B 提取？将数据放到新位置后，删除原来的数据？追问

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

追答

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

本回答被提问者采纳 参考技术C Sub 提取内容到指定位置()
[k11]=Cells(4 ^ 8, 11).End(3).Resize(1, 14)
End Sub追问

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

现在第11行没结果

追答

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

在EXCEL中，如何使用VBA设置单元格内指定字符串格式

参考技术A Sub
ss()
Dim
j
As
Long
j
=
InStr(Range("A1"),
"格式")
With
Range("A1")
.Font.FontStyle
=
"正常"
.
Characters
(Start:=j,
Length:=2).Font.FontStyle
=
"加粗"
End
With
End
Sub
这个代码可以让你的格式两个字在任意位置
如果你A1是固定的这几个字，那么一句话搞定
Range("A1")
.Characters(Start:=4,
Length:=2).Font.FontStyle
=
"加粗" 参考技术B 查找所有应用区域中包含“hello”字符串的
sub
test1()
dim
v
as
string
dim
r
as
range
v
=
"hello"
for
each
r
in
activesheet.usedrange
if
instr(1,
r,
v)
<>
0
then
msgbox
r.address
end
if
next
end
sub