excel如何通过vba将工作表1的某些单元格的值保存到另一张表的对应位置？

要复制的单元格是固定位置吗？

如果是，可以试试下面代码：

Sub AAA()
    On Error Resume Next
    Dim Rng As Range
    '下面一句是 在 results 表的 A 列中找到 [A10]即月份所在的单元格。
    '如果找到，那RNG 就代表那个单元格
    Set Rng = Sheets("Results").Columns("A").Find([A10],lookat:= xlWhole)
    If Rng Is Nothing Then
        MsgBox "没有找到该月份"
    Else
        With Sheets("Results")
            Rng.Offset(, 1) = [A15]
            Rng.Offset(, 2) = [D18]
            Rng.Offset(, 3) = [f18]
            Rng.Offset(, 4) = [h18]
        End With
    End If
End Sub

把两张表格发到57321522@qq。com