Excel 2010复制多行粘贴

Question

例如，我的此表包含两列（类别和 ID ）...我需要根据ID的数量拆分类别。我在下面提供了一个样本表。现在这看起来很简单，但是我在这里工作了15,000多条线（分裂后30,000多条线）并且手动完成它真的会占用我太多的时间。如果你知道任何可以帮助我的复制粘贴技巧或公式，请告诉我。非常感谢。

顺便说一句，我正在使用MS Excel 2010。

注意：有些ID最多可达2到10行......

Answer 1

您可以尝试复制数据并将特殊的无格式文本粘贴到Word中。用^ tC替换^ pC然后用^ tx ^ t替换^ p。选择“全部”，“插入表格”，“将文本转换为具有列数的表格”：2。重新复制到Excel并替换为x。选择该列，转至特殊，空白并键入=，Up， Ctrl + 输入。

Answer 2

这应该可以解决问题：

Sub Main()
    Range("A1").Sort Key1:=Range("A1"), Key2:=Range("B1"), Order1:=xlAscending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    rowB = 2: ctr2 = 2
    For ctr1 = 1 To Sheets(1).UsedRange.Rows.Count - 1
        arrData = Split(Range("B" & rowB), vbLf)
        For i = 0 To UBound(arrData)
            Sheets(2).Range("A" & ctr2) = Sheets(1).Range("A" & ctr1 + 1).Value
            Sheets(2).Range("B" & ctr2) = arrData(i)
            ctr2 = ctr2 + 1
        Next i
        rowB = rowB + 1
    Next ctr1
End Sub

假设

• 类别将是唯一的
• ID由换行符分隔