Excel 复制值的范围

嗨，我需要复制一个特定范围的单元格并遍历行，然后继续复制过程，直到遇到空值为止。很难得到密码 请帮助

试试这个

Dim rng As Range, cell As Range
Set rng = Range("A1:B4")
    ' loop trought each row in selected column Columns(1) = first column in range
    For Each onlyDefinedColumnRow In rng.Columns(1).Rows
        If IsEmpty(onlyDefinedColumnRow) Then Exit For
    i = i + 1
    Next onlyDefinedColumnRow
    ' or loop trought each cell in range
    'For Each cell In rng.Rows
    '    If IsEmpty(cell) Then Exit For
    'i = i + 1
    'Next cell

rng.Resize(i).Copy Destination:=Cells(i + 2, 1)

---

至少自己构建一部分代码。使用google可以轻松找到部件。使用

Do While

循环，使用

If

检查单元格是否为

null

，使用

Exit Do

退出循环。看哪一个是相似的。我确实构建了代码，但无法遍历行。a）没有样本数据b）没有样本代码c）没有预期的结果d）没有显示原始工作（参见a、b和c）。我肯定是负1。请看。谢谢！ws.Range（“B11”、“G11”）.Copy我只想知道如何将单元格增加到（B12、G12）等等