vba - 使用偏移量查找空单元格并粘贴值范围

Question

我在 Excel 工作表 (XYZ) 中有一个值向量 (C8:AM8)。使用VBA代码，我需要做的是复制并粘贴从C11开始的那些单元格，但是如果C11有值，那么我需要偏移1行并将上述值(C8:AM8)粘贴到C12中，或者如果C12有一个值，然后是下一个空行。

基本上，到目前为止，我有一些看起来像这样的东西......

Dim CellName As String
Dim CheckCell As Range
Dim RowA As Range

CellName = "C8:AM8"

For Each CheckCell In Sheets("XYZ").Range("C11:C50")
    If Not IsEmpty(CheckCell.Value) Then 
        Set RowC = CheckCell.Offset(1, 0)   
    Else
        Range(CellName).Copy Range("C11" + RowC) 
    End If      
Next CheckCell

至少，我知道问题出在这里:

Range(CellName).Copy Range("C11" + RowC)

我是 VBA 新手，因此我不确定要使用的正确语法。我已经尝试过将 RowC 放在括号内、括号外、引号内、引号外等进行多种排列，但我似乎无法确定它。我认为这个问题很简单，但我显然错过了一些关键的东西，并且似乎无法在网上找到我需要的东西。

任何帮助将不胜感激。

谢谢!

Answer 1

我会选择:

With Sheets("XYZ")
    .Range("C8:AM8").Copy .Range("C" & WorksheetFunction.Max(11, .Cells(.Rows.count, "C").End(xlUp).Offset(1).Row))
End With