根據單元格值將數據從一個表傳輸到另一個表

Question

我想幫助解決一個問題，我想這需要一些 VBA。 我想根據您可以定義的單元格值將數據從一個表傳輸到另一個表。

有關問題的描述，請參閱上圖。

我希望能夠根據所選周將來自右側表格的每個相應團隊的得分數據“存儲”到左側表格中。

例如，團隊 2 在第 1 周的得分為 10，因此，當我單擊“存儲”按鈕時，我想將其存儲在左側桌子上的相應位置。 但是對於所有球隊。

Answer 1

如果我正確理解了您的問題，那么以下代碼將循環遍歷 TeamID 和分數，並將它們放在另一個表上的正確周數中：

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