팀을 반복하고 서브 루틴을 사용하십시오.

Question

팀 이름이 a-h 인 특정 시트에서 범위 a4 : a13을 통해 루프를 실행해야합니다. 이 루프가 팀 이름을 통해 실행될 때 나는 현재 팀 A에만 일반적인 다른 코드를 실행해야합니다. 당신이 갈 수처럼 어떻게 모든 팀에 대한 실행되도록 지금까지 내가 가지고

코드를 복제 할 필요없이 자동화하기 위해 루프와 서브 루틴을 사용 할

Sub Looproutine() 

Dim i As Integer 

Dim TeamName As String 

TeamName = Sheets("Parametres") 
("A"&(str(i)).value 

For i = 4 To 13 

Call tidydata(Team(i)) 

감사

Answer 1

보인다

Option Explicit 

Sub Looproutine() 

    Dim cell As Range 

    For Each cell In Worksheets("Parametres").Range("A4:A13") '<~~ loop through every cell of your relevant range 

     tidydata cell.Value '<~~ call "tidydata()" passing it the current cell value 

    Next cell 

End Sub