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

如果下面的单元格非空白，则粘贴下面的单元格值

1 个答案: