VBA将连续的列间隔复制工作表12BSG的第21,从第5列开始有数据,到第N列,(N很大),现在通过VBA将12BSG的第21行的第5-N列数据对应复制到工作表BSGeach的第21行,不过要求间隔复制,工作表12BSG的第21行的

Question

VBA将连续的列间隔复制
工作表12BSG的第21,从第5列开始有数据,到第N列,(N很大),现在通过VBA将12BSG的第21行的第5-N列数据对应复制到工作表BSGeach的第21行,不过要求间隔复制,工作表12BSG的第21行的原始第5列复制到工作表BSGeach的新21行第5列,原始第6列复制到新的第7列,原始第7列复制到第9列,原始第8列复制到第11列,即:
原始列:5 6 7 8 9 10 11
新列:5 7 9 11 13 15 17
不要将原始数据先复制到BSGeach工作表,再隔列插入一列,因为BSGeach工作表里有数据,会被搞乱.
完不会VBA,请和以前网友一样编写自定义函数,比如Function JianGeCopy(r,c1,c2) 'r是行号,c1是开始列,c2是结束列.
Sorry,应该是Sub JianGeCopy(r,c1,c2)
非常抱歉我没有分了,如果你愿意帮助的话,劳驾您了.

Answer 1

Sub JianGeCopy(r,c1,c2)
dim i as integer
for i=c1 to c2
Worksheets("BSGeach").Cells(21, i*2-1) = Worksheets("12BSG").Cells(21, i)
next i
end sub