VBA复制并过去到设置范围内的下一个空白单元格

Question

我有下面的vba代码创建复制和粘贴数据。我正在创建的报告捕获每小时更新一次的历史数据。我需要能够粘贴到B10下面的下一个可用单元格，但无法弄清楚如何做到这一点，有什么建议吗?谢谢!

Range("A7").Select
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

代码假设您希望单元格"A7"中的值发送到B10下面的第一个可用(空白)单元格:

Sub Next_Available()
Dim nextAvailableCell As Long
nextAvailableCell = Application.WorksheetFunction.Max(Cells(Rows.Count, "B").End(xlUp).row + 1, 11)
Range("B" & nextAvailableCell) = Range("A7")
End Sub