excel - 从行中的选定单元格复制/粘贴单元格数据

Question

我的工作要求我将数据从一个 Excel 工作表的一行中的多个单元格复制/粘贴到另一个 Excel 工作表中的特定单元格。

我创建了一个宏，但它只选择了我在录制宏时选择的特定单元格——这些单元格总是会根据我需要来自哪一行的数据而改变，所以录制的宏是无用的。此外，此信息将在另一个工作表上粘贴的位置总是不同的(宏复制录制时选择的相同确切数据，并将其粘贴到录制时选择粘贴的相同位置)。我是 VBA 的菜鸟，所以我不确定如何做到这一点。

我基本上想指定一个特定的行来开始复制数据，并始终在该特定行上选择相同的单元格，并将数据粘贴到我在目标工作表上选择的任何行上的特定单元格。有人可以帮忙吗？这是我的工作 - 任何帮助将不胜感激。理想情况下，我希望宏将选项卡切换到所需的特定单元格并从宏开始的任何行复制该信息 - 然后将该数据粘贴到通过在另一个工作表中选择的任何行上的选项卡上选择的单元格运行宏的时间，如果这有意义的话。

Answer 1

你可以做这样的事情(未经测试):

Sub CopyOver()

    Dim rwSrc As Long, rwDest As Long
    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim p, arr

    'assume macro is run with the source workbook active
    Set shtSrc = ActiveSheet
    rwSrc = Selection(1).Row  '(1) = first selected cell only

    'switch to the "other" workbook and get the selection
    Workbooks("Joey's May FY19 Audit.xlsx").Activate
    Set shtDest = ActiveSheet
    rwDest = Selection(1).Row

    'Example [source:destination] pairs ColA>>ColB, B>>C, F>>H, etc
    For Each p In Array("A:B", "B:C", "F:H")
        arr = Split(p, ":")
        shtSrc.Cells(rwSrc, arr(0)).Copy shtDest.Cells(rwDest, arr(1))
    Next p

End Sub