VBAコードまたはマクロのコピーセルの値

Question

マクロ/ vbaに関する経験はありません。あなたはすべての列Aを見ることができるように

は

PINKのTEAMラベルが異なるカテゴリー（テニス、水泳、バレーボール）を持っています。私のスプレッドシートには、ピンク・ティム・ラベルがずっと下がっていますが、別のカテゴリ（テニス、水泳など）があります。ピンクチームテニスにレミーを追加し、ピンクチーム/テニスのすべてのセルにC列にREMYを自動的に追加できるようにするなど、名前を付け加えることができます。

どうすればいいですか？

Answer 1

この試してください：コードを追加するには

Sub AddName() 
    Dim lr As Long, i As Long, count As Long 
    Dim Team As String, Sport As String, NewPlayer As String 

    Team = "Pink Team" 
    Sport = InputBox("What Sport do you wish to add a name to?", "Sport") 
    NewPlayer = InputBox("What is the name of the player you wish to add?", "New Player") 
     With ActiveSheet 
      lr = .Range("A" & Rows.count).End(xlUp).Row 

      For i = 1 To lr 
       If .Range("A" & i).Value = Team And .Range("B" & i).Value = Sport Then 
        .Range("C" & i).Value = .Range("C" & i).Value & ", " & NewPlayer 
        count = count + 1 
       End If 
      Next i 
     End With 
    If count = 0 Then MsgBox "The " & Team & " doesnt appear to play " & Sport & " yet." 
End Sub 

は、キーボードのALT + F11を打ちます。次に、コードを貼り付けるシート名（左上）をダブルクリックして、&にコードを貼り付けます。