Excel:自动复制相当于同一行中非零单元格计数的值的次数。

Question

由于我的数据集相当大(数千行和数十列)，所以我想自动化以下过程：

1. 复制给定的ID#若干次，相当于该行中非零单元(父单元)的计数(不包括ID#本身)，以及
2. 将所述parent#添加到与复制的ID#相邻的单元格中。
3. 忽略所有单元格等于零的父级。

示例：

我的数据集在A列中有ID号。每个ID#在自己的行中有多个父级。细胞ID# 1在B2、C2、D2和E2中的非零亲本号分别为265、266、32和7的4倍。单元格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