值的複製範圍

Question

嗨我需要複製特定範圍的單元格並遍歷行並繼續複製過程，直到遇到空值。難以得到代碼 請幫助

Answer 1

試試這個

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)