求助：如何用VBA代码将"New Projects"工作表整行按下拉值移至3个工作表

嘿，很高兴看到你已经搞定了第一部分的代码！既然你能理解基础VBA逻辑，那把现有功能扩展到支持三个不同下拉选项的移动需求，其实很容易上手。

先给你一份完整的可复用代码，我会在后面逐段解释关键部分，方便你根据自己的实际情况调整：

Sub MoveRowsByDropdown()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim dropdownCol As Integer ' 存储下拉列表所在的列号
    
    ' 1. 定义源工作表（就是你说的"New Projects"）
    Set sourceSheet = ThisWorkbook.Worksheets("New Projects")
    
    ' 2. 指定下拉列表所在的列（比如下拉在D列就填4；A列是1，以此类推）
    dropdownCol = 4
    
    ' 3. 获取源表最后一行的行号，避免空循环
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, dropdownCol).End(xlUp).Row
    
    ' 4. 从最后一行往上遍历（避免删除行导致的索引混乱）
    For i = lastRow To 2 Step -1 ' 假设第1行是表头，所以从第2行开始
        Select Case sourceSheet.Cells(i, dropdownCol).Value
            Case "Prio 1"
                Set targetSheet = ThisWorkbook.Worksheets("Prio1")
            Case "Prio 2"
                Set targetSheet = ThisWorkbook.Worksheets("Prio2")
            Case "Prio 3"
                Set targetSheet = ThisWorkbook.Worksheets("Prio3")
            Case Else
                ' 如果下拉值不在这三个里面，跳过当前行
                GoTo NextRow
        End Select
        
        ' 5. 将当前行复制到目标表的最后一行下方
        sourceSheet.Rows(i).Copy targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
        
        ' 6. 删除源表中的当前行
        sourceSheet.Rows(i).Delete
        
NextRow:
    Next i
    
    MsgBox "行移动完成！", vbInformation
End Sub

关键部分解释 #

• 指定下拉列：你需要把dropdownCol = 4改成你实际的下拉列表所在列的数字（比如下拉在B列就填2）。
• 遍历方向：从最后一行往上遍历是核心细节——如果从第一行往下，删除行后后面的行号会往前挪，导致有些行被跳过，这个小技巧能避免踩坑。
• 下拉值与目标表映射：Select Case块就是用来对应你的下拉选项和目标工作表的，要是你的下拉文本或工作表名称不一样，直接修改Case后面的内容就行（比如下拉是"已完成"，目标表是"Completed"，就把Case "Prio 1"改成Case "已完成"，后面的工作表名也对应调整）。
• 复制删除逻辑：先把行复制到目标表的最后一行，再删除源表的行，确保数据不会丢失。

新手友好提示 #

• 测试的时候可以先把sourceSheet.Rows(i).Delete这行注释掉（前面加个'），先验证复制是否正确，没问题再取消注释执行删除。
• 一定要确保目标工作表已经存在于你的工作簿中，不然代码会报错。
• 如果担心出错，可以先备份一份工作簿再运行代码，稳当第一~

内容的提问来源于stack exchange，提问作者Alminc