基於相鄰單元格值從參考列中複製

Question

我一直在嘗試創建一個宏或一個公式以執行以下操作，但是因爲IVE變得難倒了 - 我將與您聯繫以尋求幫助。

我想實現的是宏能夠根據對相鄰單元的引用從活動單元向下複製。這個鄰近的小區，我們可以稱之爲參考小區。

只要參考列不是空的，該宏就應該從活動單元向下複製，並且該宏也足夠智能以在遇到空白參考單元時向下跳過，並進入下一個參考單元直到最後填滿的單元格。

是否有可能做這樣的事情？

在此先感謝您的幫助！

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