Как скопировать столбец с одного листа на другой, если условие выполнено в Excel?

Question

Я пытался решить это некоторое время. Как я могу скопировать определенный столбец с одного листа на другой, если первая ячейка со значением в этом столбце, например, «Ячейка». Мои предположения неверны, но, возможно, будет полезно лучше понять, чего я пытаюсь достичь.

 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")