雙擊自動填充 - 基於相鄰小區

Question

動態我需要做的：

我使用Excel中的正常功能，自動填充（請雙擊單元格的邊點）將內容複製到子細胞中，所以在這種情況下，單擊單元格A1點會做到這一點：

我需要一個腳本，將重複這個過程下來整列，直到沒有更多的值在相鄰細胞。

Answer 1

據推測，這是你在找什麼：

Option Explicit 
Sub FillInTheBlanks() 
    Dim StartCell As Range, EndCell As Range 
    Set StartCell = ActiveCell 
    Set EndCell = ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 1, StartCell.Offset(0, 1).Column).End(xlUp) 

    Dim currentText As String 
    Dim i As Long 
    For i = StartCell.Row To EndCell.Row 
     If Not IsEmpty(ActiveSheet.Cells(i, StartCell.Row)) Then 
      currentText = ActiveSheet.Cells(i, StartCell.Row).Text 
     Else 
      ActiveSheet.Cells(i, StartCell.Row).Value = currentText 
     End If 
    Next i 
End Sub 

該代碼與執行以下操作：

---

如果你真的想要什麼在你的屏幕截圖，然後你需要這樣做：

Option Explicit 
Sub FillInTheBlanks() 
    Dim StartCell As Range, EndCell As Range, NextCell As Range 
    Set StartCell = ActiveCell 
    Set EndCell = Cells(ActiveSheet.UsedRange.Rows.Count + 1, StartCell.Offset(0, 1).Column).End(xlUp) 

    While StartCell.Row < EndCell.Row 
     Set NextCell = StartCell.Offset(1, 1).End(xlDown).Offset(0, -1) 
     StartCell.AutoFill Destination:=ActiveSheet.Range(StartCell, NextCell), Type:=xlFillDefault 
     Set StartCell = NextCell.Offset(1, 0) 
    Wend 
End Sub 

哪些做到這一點：

Answer 2

您可以從鍵盤做到這一點...

• 選擇列A
• 選擇首頁|查找&選擇|轉到特殊...空白OK
• 按[=] [向上箭頭] [Ctrl + Enter]

要刪除的公式，選擇列A，複製和粘貼，特殊值。