在這里，我想從 B6 自動填充到 B10。B5 是 B 列的最后一行，A10 是整個作業表的最后一行。
目前我正在使用以下代碼。
Dim Lastrow As Long
Dim Last As Long
Application.ScreenUpdating = False
Lastrow = Range("A" & Rows.Count).End(xlUp).row 'Last row from entire sheet
Last = Range("B" & Rows.Count).End(xlUp).Offset(1).row 'Last row of Column B 1
Range(Last & Lastrow).Formula = "4"
Application.ScreenUpdating = True
如果我正在使用，這有效
Range(B6:B & Lastrow).Formula = "4"
但是如果最后一行發生變化，這可能沒有幫助
uj5u.com熱心網友回復：
Range(B6:B & Lastrow).Formula = "4"
改成
Range("B" & last & ":B" & Lastrow) = "4"
uj5u.com熱心網友回復：
下一個代碼將執行您需要的操作，參考sheet的真正最后一個單元格，獨立于它所在的列：
Dim LastrowSh As Long, LastB As Long
LastrowSh = ActiveSheet.cells.SpecialCells(xlCellTypeLastCell).Row 'Last row from entire sheet
LastB = Range("B" & rows.count).End(xlUp).Offset(1).Row 'Last row of Column B 1
Range("B" & LastB, "B" & LastrowSh).value = "4"
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/472657.html