宏自動填寫文本列到最後一個單元格在一個表中（同時有以下附加表）

Question

example of tables in the spreadsheet

您好我是新來的VBA，想創建一個宏可以自動填充柱「 Y/N「（如附圖所示），點擊按鈕顯示」Yes「。

現在我已經在第一個表，這是罰款3行，我用下面的代碼：

Sub autofill1() 
Range("E12").Value = "Yes" 
Range("E12").Select 
Selection.AutoFill Destination:=Range("E12:E14") 
End Sub 

然而，在第一個表中的行會不斷變化，說就變成20，50 ，取決於不同的情況。我想知道是否有一種方法可以將自動填充範圍定義爲單元格E12到此表中的最後一個單元格，而不是擴展到下面的其他表格。

我檢查規定的其他類似問題的代碼 - 看起來像它會自動填寫一路下來我的工作表，這是在第5表的此列的最後一個單元格的最後一個單元格。我不想那樣。有沒有辦法只自動填充到第一個表的最後一個單元格？非常感謝！

Answer 1

在我看來，增加「是」，直到發現了一個底部邊框。

Sub autofill1() 
'Range("E12").Value = "Yes" 
'Range("E12").Select 
'Selection.AutoFill Destination:=Range("E12:E14") 
Dim i As Long 
i = 11 
Do While Range("E" & i).Borders(xlEdgeBottom).LineStyle _ 
= xlNone 
i = i + 1 
Cells(i, 5) = "Yes" 

Loop 

End Sub