如何在列中复制一个单元格数据，然后将其粘贴，直到另一个值通过 VBA 进入列中？

Question

The code I used

Sub copypaste()
'
' copypaste Macro
'

'
    Range("B2:B8").Select
    Application.CutCopyMode = False
    Selection.FillDown
    Range("B9:B10").Select
    Selection.FillDown
    Range("B11:B13").Select
    Selection.FillDown
End Sub

I have this sheet:

And I want output through VBA code as my actual sheet is very big like this:

Answer 1

Avoid VBA in case you not sure how to use it in the first place. There are many cool build-in features to assist you in a case like yours:

• Select range B1:B17
• Goto tab Start > Select Find & Select > Choose Go To Special > Choose Blanks
• Now all empty cells in your range are selected with cursor in top one. Type =B2 and hit key-combo Ctrl + Enter