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

Question

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

1. 複製給定的ID＃相當於非零細胞（父母）在它的行（不包括編號＃本身）的計數的次數，和
2. 加入母體＃中問題與複製的ID＃相鄰的單元。
3. 忽略細胞等於零的所有父母。

例子：

我的數據集擁有ID號在A列中的每個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