下面的单元格粘贴值如果下面的单元格不是空白的

Question

我真的需要在没有剪贴板的情况下粘贴值，这是我输入UDF的单元格下面的单元格。

例如用下面的代码

Function macropastec5() As Variant 
macropastec5 = Sheets("Sheet1").Range("H7").Value 
End Function 

，如果我进入细胞H6 = macropastec5（）

所以我将如何利用这个任意单元格来获得它下面的单元格？

我需要像成才

Function macropastec5(the cell I'd enter in excel formula bar ) As Variant 
macropastec5 = Sheets("Sheet1").Range(" the cell below where I enter in formula bar").Value 
End Function 

Answer 1

只要使用此功能，请输入您的范围的功能。例如，如果您使用该函数并输入C1，则该函数将从C2复制值，因为我将该行增加一个。希望这可以帮助。

Public Function CopyBelowCell(rng As Range) As Variant 

Dim rw As Long 
Dim col As Long 

rw = rng.Row 
col = rng.Column 

CopyBelowCell = Cells(rw + 1, col) 

End Function