Excel：自动将值复制一个等于同一行中非零单元的计数的次数

由于我的数据集非常大（数千行和数十列），我想自动执行以下过程：

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