excel - 建立一个“直到”循环以使列循环直到空单元格

我在构建do直到循环时遇到麻烦，该循环将使D列从D4开始循环，并一直重复执行Select Case函数，直到遇到空单元格为止。附件是我的代码。如果这是一个多余的问题，我深表歉意，我已经尝试了所有发现的问题，但是它不起作用，所以我想知道代码中是否还有其他问题将其弄乱了。

Sub FindSupervisior()
    Dim Position As String

    range("D4").Select
    Position = ActiveCell

     'i need to add a loop around this section to do the entire column until empty
      Select Case Position
            Case "Woodyard / Pulp E&I"
                Position = "Boss A"
            Case "Maintenance - Primary Pro"
                Position = "Boss B"
      End Select
      ActiveCell.Offset(, 1).Value = Position
      ActiveCell.Offset(1, 0).Activate

End Sub

最佳答案

您会在这里找到Scott Craner的答案很有用Excel VBA - Do Until Blank Cell

另外，这是一个简单的例子

 Dim i = 4 ' starting row
 While Not IsEmpty(Cells(i, 4)) ' column 4 = column D etc

     Select Case etc .......
     Cells(i,5).Value = Position

     i = i + 1
 Wend

关于excel - 建立一个“直到”循环以使列循环直到空单元格，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/51196975/