VBA 根据列和行条件将数据粘贴到特定单元格

Question

我正在尝试使用一个按钮将数字快照到另一张纸上。复制/粘贴代码可以正常工作，但是我需要它相应地粘贴到正确的用户和星期。

这是我到目前为止所拥有的：

Sub CopyScore()

Worksheets("Scorecard").Range("AD13").Copy
Worksheets("Yearly").Range("B2").PasteSpecial xlPasteValues

End Sub

显然，这只是粘贴到B2

如何在年度表中需要查找 A 列中的特定名称以及 A 行中的特定数字？

只是为了更有意义...它将查看记分卡 (D2) 表上的名称，然后将其与 A 列中的名称进行匹配。它还将查看记分卡表上的周 #(V2) 并将其与“每年”中的列相匹配。

如果能够为同一工作簿上的另一张工作表以及未打开的工作簿编写另一个代码，那就太棒了......

Answer 1

请尝试

Sub demo()
    Dim ySht As Worksheet
    Dim c As Range
    Set ySht = ThisWorkbook.Worksheets("Yearly")
    With Worksheets("Scorecard")
        If .Range("AD13") <> "" Then
            ' Search name
            Set c = ySht.Columns(1).Find(.Cells(2, "D"))
            If Not c Is Nothing And .Range("V2") > 0 Then
                ySht.Cells(c.Row, 1).Offset(0, .Range("V2")).Value = .Range("AD13")
            End If
        End If
    End With
End Sub