基于相邻单元格值从参考列复制

Question

为了做到以下几点，我一直在尝试制作一个宏或一个公式，但是因为我变得难以接受 - 我会向你们寻求帮助。

我想要实现的是能够根据对相邻单元的引用向下从活动单元复制的宏。这个相邻的小区，我们可以称之为参考小区。

只要参考列不为空，该宏就应该从活动单元格向下复制，并且当遇到空白参考单元格时宏也足够智能向下跳过并进入下一个参考单元格直到最后一个填充的单元格。

是否可以做类似的事情？

提前感谢您的帮助！

Answer 1

以下是您可以使用的示例，它假设邻居列是右侧的列：

Sub Sample()
Dim rngStart As Range
Dim lngLastRow As Long
Dim lngDiff As Long

Set rngStart = ActiveCell
lngLastRow = Cells(Rows.Count, rngStart.Offset(0, 1).Column).End(xlUp).Row

lngDiff = lngLastRow - rngStart.Row + 1

Set rngStart = rngStart.Resize(lngDiff)
rngStart.Select
End Sub