Range("A39:J55").Copy Cells(39, ActiveSheet.UsedRange.Columns.Count + 1)
如果所复制的从K39开始怎么修改
下一次粘贴的列号的变量 Y
Range("A39:J55").Copy Cells(39, y+1)
要计算,从K39开始,最后1个列不为空的列数+1
这个y可以用很多种方式来计算出来
上一个问题都给你回答了。
应该是粘贴区域从K39开始吧?!
Range("A39:J55").Copy Cells(39, "K")追问Range("A39:J55").Copy Cells(39, "K")可是这样每执行一下,所复制的没有向右空处复制
(可不可以在这里加句 "K") Range("A39:J55").Copy Cells(39, ActiveSheet.UsedRange.Columns.Count + 1)
也就是A39:J55每执行一下,向右空处复制一下