根据单元格值将数据从一个表传输到另一个表

Question

我想帮助解决一个问题，我想这个问题需要一些VBA。我想根据您可以定义的单元格值将数据从一个表传输到另一个表。

请参阅上图以了解问题的描述。

我希望能够将每个相应团队的得分数据从右边的表格“存储”到左侧的表格，具体取决于所选的周数。

E.g。 Team 2在第1周的得分为10，因此，当我点击STORE按钮时，我想将它存储在左边桌子上的相应位置。但是对于所有球队来说。

Answer 1

如果我正确理解了你的问题，那么以下代码将遍历TeamIDs和Scores，并将它们放在另一个表中正确的Week Number中：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
Dim FoundID As Range, FoundID2 As Range
Dim TeamID As String, TeamID2 As String
Dim Score As String, Score2 As String

WeekNumber = ws.Range("M3").Value
'get WeekNumber to use for Offset

For i = 5 To 13
    TeamID = ws.Cells(i, 13)
    Score = ws.Cells(i, 15)
    TeamID2 = ws.Cells(i, 18)
    Score2 = ws.Cells(i, 16)
    Set FoundID = ws.Range("B3:B21").Find(What:=TeamID)
    If Not FoundID Is Nothing Then
        FoundID.Offset(0, WeekNumber).Value = Score
    End If
    Set FoundID2 = ws.Range("B3:B21").Find(What:=TeamID2)
    If Not FoundID2 Is Nothing Then
        FoundID2.Offset(0, WeekNumber).Value = Score2
    End If
Next i
End Sub