乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>EXCEL</em> <em>VBA</em>复制内容到指定行-

<em>EXCEL</em> <em>VBA</em>复制内容到指定行-

作者:乔山办公网日期:

返回目录:excel表格制作


sub xx()
n=[k65536].end(3).row
range(cells(n-11,"k"),cells(n-11,"al")).copy cells(n+2,"k")
end sub


举例步骤如下:

1.将第一行内容复制到第4行

2.Alt+f11,输入如下代码:

3.F5执行代码,结果如下:


代码如
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")是你开始粘贴的第一行

将复制这行拆分,复制后选择性粘贴:
Rows(x & ":" & n).EntireRow.Copy
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

如果是zhidao复制的单元格格式,再加上下面一句

Range("A1").PasteSpecial xlPasteFormats
另外,Rows本身就是整行引用,EntireRow在这里就是重复的,可取消,直接改为:
Rows(x & ":" & n).Copy

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网