[英] VBA Paste Value to Next Empty Cell in a Range

问题描述

我正在尝试将一个工作表(Sheet1上的C39)中的值复制并粘贴到另一个工作表(Sheet2上的B6到B18)范围内的下一个空单元格。以下是我正在使用的代码。

Sheets("Sheet1").Range("C39").Copy
With Sheets("Sheet2").Range("B6:B18").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
End With
End Sub

当我运行此宏时，它继续覆盖Sheet2上的B6。理想情况下，它会看到B6中有一个值，然后粘贴到B7中，然后粘贴到B8中，依此类推。我可以做些什么来纠正这个问题？

推荐答案

需要从Sheet2中的B16开始并向上看：

Sub dural()
    Dim r1 As Range, r2 As Range
    Set r1 = Sheets("Sheet1").Range("C39")
    Set r2 = Sheets("Sheet2").Range("B16").End(xlUp).Offset(1, 0)
    r1.Copy r2
End Sub

(与PasteSpecial类似)

这篇关于的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！