代码如下：
'定义M:V列最大行号imaxrow，m:v列最下面有数据行号iendrow
dim iMaxRow%,iEndrow%
for i=13 to 22
iendrow=cells(65536,i).end(xlup).row
'imaxrow=将m：v列中最大的行号
if iendrow>imaxrow then imaxrow=iendrow
next
'复制，粘贴
range("B2:K11").copy
cells(imaxrow+1,13).paste
end sub
vba复制粘贴,直接赋值法
'定义M:V列最大行号imaxrow，m:v列最下面有数据行号iendrow
dim iMaxRow%,iEndrow%
for i=13 to 22
iendrow=cells(65536,i).end(xlup).row
'imaxrow=将m：v列中最大的行号
if iendrow>imaxrow then imaxrow=iendrow
next
'复制，粘贴
range("B2:K11").copy
cells(imaxrow+1,13).paste
end sub
