小编Eua*_*M28的帖子

我想将工作表中的每一行复制 57 次，跨 39 列（在结果之后，意味着每条记录将有 58 个重复项）。

我的一些记录的片段（请记住，有 39 列，片段无法截取完整视图）：

我正在寻找的结果（注意：此示例每行有 10 个重复项，而不是 58 个，因为屏幕截图太大）。原始文件有超过 5000 条记录，所以我知道我使用的任何代码都需要一段时间才能加载。

下面的代码不会重复行，但确保每行在 39 列（A 到 AM）的每行之间有 57 个空白行的间隙。这将是一个更长、更复杂的完成任务的方式，因为我必须找到一种方法来填补空白。因此，为什么我要发布这个问题，因为必须有一种更有效的方法。

Sub Duplication()

Dim lastRow As Long
lastRow = Sheets("MasterSheet").Range("A" & Rows.Count).End(xlUp).Row

For i = lastRow To 3 Step -1
    Cells(i, 1).Resize(57).Insert Shift:=xlDown
Next
For i = lastRow To 3 Step -1
    Cells(i, 2).Resize(57).Insert Shift:=xlDown
Next
For i = lastRow To 3 Step -1
    Cells(i, 3).Resize(57).Insert Shift:=xlDown
Next
For i = lastRow To 3 Step -1
    Cells(i, …

我希望能够使用下面代码中的 API 以格式化方式显示数据，如本例所示。

Job Title: Agricultural and Related Trades

Percentage of Occupancies in Area: 15.41%

您可以在下面找到我展示数据的糟糕尝试。我对 Ajax、jQuery、JavaScript 等非常陌生。

Job Title: Agricultural and Related Trades

Percentage of Occupancies in Area: 15.41%