Microsoft Excel – 如何将单元格复制到每第 n 行的不同工作表中

Question

Microsoft Excel – 如何将单元格复制到每第 n 行的不同工作表中。 我有一个有趣的问题。这可能很简单，但我想不通。

我有一个单元格列表（大约 10 列，超过 1000 行，即将扩展） A1-A10 及以下 这些是我的标题和主要输入单元格（我们称之为摘要表）

我需要将这些单元格复制并最好链接到相邻的工作表（详细表），但以这样的方式，每个单元格（或 10 个单元格）在每 20 行复制一次。

有时我会在摘要表中添加和删除行。因此，我希望能够在详细表格中使用自动填充或类似的功能。在我更新我的摘要表之后，然后可以通过自动填充公式来更新详细表。

更多详细信息：
这些单元格复制到的每一行成为每个 20 行模块的标题行。复制的标题下方的 19 行仍然为空，并且在更右侧的 19 行上进行了详细计算。每个部分都是一个相同的模块，有许多详细的计算，结果在每个模块的第一行。 目前我只使用Detailed Sheet，添加或删除模块及其标题非常耗时。

摘要表 A B C D 1 #A1 #B1 #C1 … 2 #A2 #B2 #C2 …
3 #A3 #B3 #C3 …

详细表 A B C D 1 #A1 #B1 #C1 … … 19 个空行 21 #A2 #B2 #C2 …
… 19 个空行 31 #A3 #B3 #C3 … … 19 个空行

感谢您的任何回答。 马丁

Answer 1

在您的摘要表上放置一个按钮，并将此代码放在它后面，将工作表名称和按钮名称更改为您要使用的名称。然后每次你想重做细节线时，点击按钮。注意：我已经写了这个，所以摘要表是 Sheet2，详细表是 Sheet1：

Private Sub RedoDetailedSheet_Click()

Dim i As Integer, j As Integer

For i = 0 To Worksheets("Sheet2").UsedRange.Rows.Count - 1
    For j = 1 To Worksheets("Sheet2").UsedRange.Columns.Count

        Worksheets("Sheet1").Cells(20 * i + 1, j).Formula = "=Sheet2!" _
            & Worksheets("Sheet2").Cells(i + 1, j).Address

    Next j
Next i

End Sub

下面是基于您的示例文件的代码，适用于该特定情况。您需要将 Model 列的格式更改为 General。

Private Sub RedoDetailedSheet_Click()

Dim i As Integer, j As Integer

For i = 0 To Worksheets("Input").UsedRange.Rows.Count - 2
    For j = 1 To Worksheets("Input").UsedRange.Columns.Count

        Worksheets("Output").Cells(20 * i + 29, j + 2).Formula = "=Input!" _
            & Worksheets("Input").Cells(i + 2, j).Address

    Next j
Next i

End Sub

Answer 2

这可以通过 Excel 的查找函数轻松处理 - 不需要 VBA - 这使得在 https://superuser.com/ 上询问这个问题更合适。

更新：我无法从 MediaFire 获取您的文件，但从您最近编写的内容看来，Lance 的代码应该适合您。祝你好运。