MS-Excel копирует конкретные ячейки, если cell.Value = «Да»

Question

Я хотел бы скопировать ячейки из столбцов A, W и G из листа «Пересчитанный FS» на другой рабочий лист под названием «Tempo», если значение ячейки в столбец AI той же строки = «YES».

Это код, я использую в настоящее время,

Sub dural() 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Sheets.Add(After:= _ 
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 
    ws.Name = "Tempo" 
    For Each Cell In Sheets("Recalculated FS").Range("AI:AI") 
     If Cell.Value = "YES" Then 
      Sheets("Recalculated FS").Range("A:A").Copy Sheets("Tempo").Range("B:B") 
      Sheets("Recalculated FS").Range("W:W").Copy Sheets("Tempo").Range("A:A") 
      Sheets("Recalculated FS").Range("G:G").Copy Sheets("Tempo").Range("C:C") 
     End If 
    Next 
End Sub 

Это не работает. эта картина мне нужна, каждый раз AI = да -> копируем значение столбцов A, G и W Помогите пожалуйста.

Answer 1

1) Вы можете использовать следующую команду, чтобы скопировать столбцы:

Sheets("Recalculated FS").Range("A:A").Copy Sheets("Tempo").Range("B:B") 
Sheets("Recalculated FS").Range("W:W").Copy Sheets("Tempo").Range("A:A") 
Sheets("Recalculated FS").Range("G:G").Copy Sheets("Tempo").Range("C:C") 

Примечание: выше точки теперь не имеет значения, как ОП изменил свой код.

2) Для того, чтобы изменить заголовки в листе «Темпо», вы просто могли бы сказать:

Sheets("Tempo").Range("A1").Value = "Heading for column A" 

т.д.

Примечание: выше точки теперь не имеет значения, как ОП удалила этот вопрос с поста.

3) Ваш цикл For Each Cell In Sheets("Recalculated FS").Range("AI:AI") выполнит содержимое цикла для каждых клеток в колонке AI, что означает, что, если столбец МЫ содержит 10 клеток со значением «Да», три столбца будет скопирован 10 раз (каждый раз копируя точно то же самое точно в одно и то же место). (И он будет проходить через цикл много, много, тысячи раз, глядя на пустые ячейки и решив, что ему ничего не нужно делать, но все же требуется время, чтобы это решить.)

Примечание: вышеуказанная точка по-прежнему актуальна.

Answer 2

Вот несколько кодов для поиска значения YES.

Затем вы можете скопировать столбцы, если найдено одно ДА.

Sub dural() 

ThisWorkbook.Sheets("Recalculated FS").Select 
Columns("AI:AI").Select 

Set cell = Selection.Find(What:="YES", After:=ActiveCell, LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False) 
'Search the column for a YES value 

If cell Is Nothing Then 
    'Do nothing if YES isn't found 
Else 
    'Copy columns if YES is found 
End If 

     If Len(ActiveSheet.Range("A1").Value) <> 0 Then 
      Sheets("Tempo").Name = ActiveSheet.Range("A1").Value 
     Else 
      'Don't change the name 
     End If 
'Rename the Tempo worksheet based on a cell value 

End Sub