excel vba复制内容及格式

发布网友发布时间：2022-05-02 02:10

共2个回答

热心网友时间：2022-06-02 11:57

展开1全部代码如下
sub
a()
s1="a"
s1="c"
b1="1"
b2="10"
sheets(1).range(s1
&
b1
&
":"
&
s2
&
b2).select
selection.copy
sheets(1).range("a11").select
activesheet.paste
end
sub
其中
range(s1
&
b1
&
":"
&
s2
&
b2)是要你复制的区域。range("a11")是你开始粘贴的第一行

热心网友时间：2022-06-02 11:57

将复制这行拆分，复制后选择性粘贴：
Rows(x
&
":"
&
n).EntireRow.Copy
Range("A1").PasteSpecial
xlPasteValuesAndNumberFormats
如果是复制的单元格格式，再加上下面一句
Range("A1").PasteSpecial
xlPasteFormats
另外，Rows本身就是整行引用，EntireRow在这里就是重复的，可取消，直接改为：
Rows(x
&
":"
&
n).Copy

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com