VBA从上面的单元格复制数据(如果为空)，并在下一个数据时停止，然后重复

Sub CopyData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim lastRow As Long
    
    ' 设置源数据范围，假设数据在A列中
    Set sourceRange = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 设置目标数据范围，假设目标数据从B列开始
    Set destinationRange = Range("B2")
    
    ' 循环遍历源数据范围
    For Each cell In sourceRange
        ' 判断当前单元格是否为空
        If cell.Value <> "" Then
            ' 复制数据到目标数据范围
            cell.Copy destinationRange
            
            ' 将目标数据范围移动到下一行
            Set destinationRange = destinationRange.Offset(1)
        End If
    Next cell
End Sub