使用VBA将sheet1指定列内容复制到sheet2指定列中，高分求
如题，使用VBA将黑色文字编码1，编码2内容复制到红色字体编码1编码2内容下，黑色为sheet1红色为sheet2，在同一excel文件内，麻烦了。因为后面涉及到计算，所以请使用VBA。谢谢~ps：请注意下两个颜色的行数是不一样的。
第1个回答 2018-07-23
能说得再详细点吗？我看得有点糊里糊涂，你是说如果sheet1A列中有任意一个单元格的值等于sheet2中的A1的值，那么就将A列整行复制到sheet2中，然后对其进行排序吗？那么要复制到sheet2中的什么位置，具体怎么个复制法，能详细说一下吗？我觉得应该不难，就差一些细节。追问
是这样的，我想将sheet1中，A,B两列当中A2，B2及以后的所有的数据，利用VBA复制到sheet2当中AB两列A4,B4以后。
sheet1中的A2,B2到sheet2中的A4,B4，sheet1中的A3,B3到sheet2中的A5,B5……这样。不知道我这样有说清楚吗？
第2个回答 推荐于2018-07-30
sub test()
dim arr()
dim row1 as long
dim row2 as long
row1=sheet1.range("A65536").end(xlup).row
redim arr(1 to row1,1 to 3)
arr=sheet1.range("A1:C" & row1)
row2=2
application.screenupdating=false
for i=1 to row1
if arr(i,1)=sheet2.cells(j,1) then
sheet2.cells(j,2)=arr(i,2)
sheet2.cells(j,3)=arr(i,3)
j=j+1
end if
next i
application.screenupdating=true
end sub追问
dim arr()
dim row1 as long
dim row2 as long
row1=sheet1.range("A65536").end(xlup).row
redim arr(1 to row1,1 to 3)
arr=sheet1.range("A1:C" & row1)
row2=2
application.screenupdating=false
for i=1 to row1
if arr(i,1)=sheet2.cells(j,1) then
sheet2.cells(j,2)=arr(i,2)
sheet2.cells(j,3)=arr(i,3)
j=j+1
end if
next i
application.screenupdating=true
end sub追问
谢谢了，可是我试了下，用不了。提示错误1004，程序定义或对象定义错误。
本回答被网友采纳
相似回答