如果在Excel中满足条件，如何将列从一个工作表复制到另一个工作表？

Question

我一直试图解决这个问题。如果在该列中具有值的第一个单元格是例如＆＃34; Cell＆＃34;，如何将某个列从一个工作表复制到另一个工作表。我的猜测是错误的，但也许有助于更好地理解我想要完成的事情。

 for i=5 to lcol
   if Sheet8(6,i).value ="Cell" then
     Sheet8.Range(6,i).Copy Destination:=Sheet7.Range("M3:N" & lRow)
   end if
 next i

Answer 1

从以下位置更改复制声明：

Sheet8.Range(6,i).Copy Destination:=Sheet7.Range("M3:N" & lRow)

要：

ThisWorkbook.Worksheets("Sheet8").Range(6, i).EntireColumn.Copy ThisWorkbook.Worksheets("Sheet7").Range("M3")