在Excel中，如何插入一份；“家长”；每个单元格右侧的单元格；儿童。”；

我挣扎着用语言来表达，但这就是我想要的效果

看看这个：

我需要每个项目都有其“父”值作为其右侧的单元格，但由于每个父项都有大量不一致的子项，这就复杂了

谢谢你的阅读，我希望我能学会如何解决这个问题。

我认为一个简单的

if（）

公式会有所帮助

将以下内容粘贴在H4（您的第一个孩子）中，并复制下来

=IF(LEFT(F3, 4)="PARE", F3, IF(LEFT(F4, 4)="PARE", "", H3))

例如：

我认为一个简单的

if（）

公式在这里会有所帮助

将以下内容粘贴在H4（您的第一个孩子）中，并复制下来

=IF(LEFT(F3, 4)="PARE", F3, IF(LEFT(F4, 4)="PARE", "", H3))

例如：

---

使用VBA，这将起到以下作用：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
'get the last row with data on Column F

For i = 1 To LastRow 'loop from row 1 to last
    If Not IsNumeric(ws.Cells(i, 6).Value) Then 'check if value is numeric in column 6 = Column F
        ParentValue = ws.Cells(i, 6) 'if is not a number then it is a parent
    Else
        ws.Cells(i, 8).Value = ParentValue 'add parent on column 8 = column H
    End If
Next i
End Sub

---

使用VBA，这将起到以下作用：

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
LastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
'get the last row with data on Column F

For i = 1 To LastRow 'loop from row 1 to last
    If Not IsNumeric(ws.Cells(i, 6).Value) Then 'check if value is numeric in column 6 = Column F
        ParentValue = ws.Cells(i, 6) 'if is not a number then it is a parent
    Else
        ws.Cells(i, 8).Value = ParentValue 'add parent on column 8 = column H
    End If
Next i
End Sub

---

VBA是一种选择吗？使用VBA可以很容易地达到预期的效果…VBA是一种选项吗？使用VBA可以很容易地达到预期的效果…一个简单而优雅的解决方案，非常感谢你是一个明星。一个简单而优雅的解决方案，非常感谢你是一个明星。