Excel：自動復制一個值的次數等於同一行中非零單元格的計數

Question

由於我的數據集非常大（數千行和數十列），因此我想自動化以下過程：

1. 復制給定ID＃的次數等於其行中非零單元格（父級）的數量（不包括ID＃本身），並且
2. 將相關的父代號添加到與復制的ID＃相鄰的單元格中。
3. 忽略所有等於零的單元格的父母。

例：

我的數據集在A列中具有ID號。每個ID＃在其自己的行中具有多個父級。 單元格A2中的ID＃1分別在B2，C2，D2和E2中擁有4x個非零父代數265、266、32和7。 單元格F2 =零，應忽略。

所需的輸出在另一張紙中：

任何幫助將不勝感激。 謝謝！

Answer 1

這將做您想要的。

更改工作表名稱以匹配您擁有的工作表名稱。

Sub Sortstuff()

Dim ows As Worksheet
Dim tws As Worksheet
Dim trw&
Dim cel as range

Set ows = Worksheets("Sheet1") 'original sheet
Set tws = Worksheets("Sheet2") 'target sheet

For Each cel In ows.Range(ows.Range("B2"), ows.Range("B2").End(xlDown).End(xltoRight))
    If cel <> 0 Then
        trw = tws.Range("A" & tws.Rows.count).End(xlUp).Offset(1).Row
        tws.Cells(trw, 2) = ows.Cells(cel.Row, 1)
        tws.Cells(trw, 1) = cel.value
    End If
Next

End Sub