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

Question

这张工作表叫model，我想通过vba，首先设置一个A19这样的按钮，在A10中是月份，A11到A13是选择不同的月份会有不同的值，例如现在选中的是9月，我就想单击一下A19那个SaveResults按钮把9月所对应的A15，D18，F18，H18的值保存到另一张叫做“Results”的工作表（如下图）中9月所对应的单元格里B28，C28，D28，E28里，其它月份也是如此。

然后我已经编了这么多不知道对不对（希望大神能用类似于下图的编程语言，因为我们只学过这种，如果用其他的可能老师不会相信）

Answer 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

追问

请您看下这个页面的问题http://zhidao.baidu.com/question/917251743629035779.html

Answer 2

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

已发

追答

给你写好了。。

看附件把。。

本回答被提问者采纳