作者:乔山办公网日期:
返回目录: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