51问答网 > 使用VBA将sheet1指定列内容复制到sheet2指定列中，高分求

使用VBA将sheet1指定列内容复制到sheet2指定列中，高分求

2024-12-23 15:02:13

推荐回答（2个）

回答1：

能说得再详细点吗？我看得有点糊里糊涂，你是说如果sheet1A列中有任意一个单元格的值等于sheet2中的A1的值，那么就将A列整行复制到sheet2中，然后对其进行排序吗？那么要复制到sheet2中的什么位置，具体怎么个复制法，能详细说一下吗？我觉得应该不难，就差一些细节。

回答2：

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