填充直到最後一個空行或下一個填充的單元格

Question

我知道如何編寫代碼以填充列，但我有一些條件，我無法找到如何實現。

我想填寫直到最後一行（包含任何值）或列中包含信息的下一個單元格。

的數據看起來像這樣

a  1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
b  1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
c  1 2 3 4 5 6 7 8 9 10 
d  1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
e  1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 
     1 2 3 4 5 6 7 8 9 10 

所以你可以看到，代碼需要知道如何停止在B（而不是在它複製）複製下來的列時。當代碼拖拽e時，代碼還需要在最後一行停止。

我一直在試圖找出它無濟於事，請幫助！

以前的代碼：

Yes I do have some code, but it is slow and I would like to figure out something more efficient. 
'Sub CopyDown() 
    Sheets("RAW").Range("A1").Select 
    For i = 1 To 100 
     ActiveCell.Copy 
     ActiveCell.Offset(1, 0).Select 
     If ActiveCell.Value = vbNullString Then 
      ActiveCell.Paste 
     End If 
    Next i 
End Sub' 

Answer 1

這一個很簡單，如果使用您的示例數據集（填寫列A中空白的現有值）。

Sub MacroFillAreas() 

    For Each area In Columns("A:A").SpecialCells(xlCellTypeBlanks) 
     If area.Cells.Row <= ActiveSheet.UsedRange.Rows.Count Then 
      area.Cells = Range(area.Address).Offset(-1, 0).Value 
     End If 
    Next area 

（代碼修改）

End Sub 

Answer 2

沒有代碼很難說，但假設你正在做一個循環，那麼所有你需要做的是檢查電池

Sub filldown() 

Dim X, Y As Long 
Dim MaxX, MaxY As Long 

MaxX = ActiveSheet.UsedRange.Rows.Count 
MaxY = ActiveSheet.UsedRange.Columns.Count 

For X = 1 To MaxX 
    For Y = 1 To MaxY 
     If IsEmpty(ActiveSheet.Cells(X, Y)) = True Then 
      ''Do something 
     End If 
    Next 
Next 

End Sub