循环通过团队和使用子例程

我必须在团队名称为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))

感谢

来源

2016-06-09 user3018495

好像你可以去如下所示：

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

来源

2016-06-09 06:53:24 user3598756

我需要定义什么tidydata是第一个？ – user3018495

好吧，因为你已经有了'Call tidydata（Team（i））'我假设你已经有了一些Sub Subididata（teamName as String）...（处理给定团队名称的数据的代码）... End Sub '在你的项目中！ – user3598756

是的，我不太确定把它放在哪里，但现在一切都有意义，欢呼！ – user3018495

循环通过团队和使用子例程

回答

相关问题