Question

我在工作表“列表”上有2列，一列列出所有业务实体，另一列列出所有组织单位。以下代码的功能可以正常工作，但由于超出了工作表行的限制，因此会返回错误。

将数据粘贴到工作表“ cc_act”上，是否有办法在错误时创建一个名为“ cc_act1” ....“ cc_act2”的新工作表，直到脚本完成？

itemEntities: [
   {customisable: [{food: {..}, quantity: 1}, {food: {..}, quantity: 5}]},       
   {customisable: [{food: {..}, quantity: 0}]}, 
]

Sub cc（）

this.toggleForm.controls.itemEntities.controls[i]
    .controls.customisable.controls[j].controls.quantity.setValue(quantity);

Answer 1

我想有几种方法可以处理这样的事情。请参见下面的代码示例，并使其适应您的特定需求。

Sub LongColumnToAFewColumns()
    Dim wsF As Worksheet, WST As Worksheet
    Dim rf As Range, rT As Range
    Dim R As Long, j As Integer

    ' initialize
    Set wsF = ActiveSheet
    Set WST = Sheets.Add
    WST.Name = "Results"

    j = 1

    For R = 1 To wsF.Cells(Rows.Count, 1).End(xlUp).Row Step 65536
        wsF.Cells(R, 1).Resize(65536).Copy
        WST.Cells(j, 1).PasteSpecial xlPasteValues

WST.Cells(j, 1).PasteSpecial xlPasteValues

        j = j + 1
    Next R

End Sub

顺便说一句，您可能需要考虑将MS Access用于此类事情。或者，更好的是，甚至Python，甚至R。祝您项目顺利。

超出行数限制-创建新工作表

1 个答案: