这是一个相当初级的示例,取决于您的数据的布局与您上面描述的完全相同。(您可以将其更改为pass
originCell
如果需要,可以将其作为参数,或者在故障排除/实现时手动更改该值。)
它所做的只是获取原始单元格的行值,并在a列中创建一个具有相同行号的新范围。然后它只看上面的单元格,检查它是否为空。如果为空,则将范围上移一行,直到找到填充的单元格。我已将发现的价值存入银行
parentCell
在I3中,显然你可以把它放在任何你想放的地方,只是为了验证它是否找到了正确的值。
Sub findParent()
Dim originCell As Range, parentCell As Range
Set originCell = Sheet1.Range("E3")
Set parentCell = Sheet1.Cells(originCell.Row, 1)
While IsEmpty(parentCell) = True
Set parentCell = parentCell.Offset(-1, 0)
Wend
Sheet1.Range("I3").Value = parentCell.Value
End Sub
这将是许多解决方案的良好起点。除了将originCell作为参数传递外,还可以传递要使用以下形式查找的Table_2值的列号:
Sub findParent(originCell as Range, parentColumn as long)