cell.Value = "Yes"の場合、MS-Excelの特定のセルをコピーする

Question

ワークシート「再計算されたFS」の列A、W、Gのセルを「テンポ」と呼ばれる別のワークシートにコピーしたい同じ行のAI列= "はい"。

これは、私はそれが動作しない、今

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

注：OPは彼のコードを変更したとして、上記の点は、今は無関係です。 「テンポ」シートの見出しを変更するには

2）、あなただけ言うことができる：

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

など

注：上記の点をOPが取り除かたように、今は関係ありません彼のポストからのこの質問。

3）あなたFor Each Cell In Sheets("Recalculated FS").Range("AI:AI")ループの列AIが「Yes」の値を持つ10個の細胞を含む場合、3つの列10をコピーされることを意味するカラムAI内のすべてセルのループの内容を実行します（正確に同じものを正確に同じ場所にコピーするたびに）。 （そして、空のセルを見て、何もする必要がないと判断して、何度も何度も何度もループを繰り返しますが、それでも決定する時間はかかります）

注：上記の点依然として関連性がある。

Answer 2

ここに、YES値を検索するコードがあります。

YESを1つ見つけたら、列をコピーできます。

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