将特定单元格复制到特定列

Question

单元格E8和E6是依赖的下拉列表，它们正在工作。

如果我在单元格中选择工具，则

• 给出了所有工具的列表。如果在单元格E8中选择设备，那么
• 就会给出所有的设备。

此依赖下拉列表的范围从K列到M列。

​

​

现在，我想自动添加更多的名称，做我的依赖下拉列表。

如果

• =“E8”，则将单元格E6中的名称复制到最后一行“L”
• ，如果E8 =“E8”，则将单元格中的名称复制到最后一行“K”
• ，与if E8= "Car"

相同。

Answer 1

Private Sub Move()
Dim row, column As Integer
Dim ws As Worksheet
Set ws = ActiveSheet

'Determine Column
Select Case ws.Cells(8, 5).Value

    Case "Equipment"
        column = 11
    Case "Tool"
        column = 12
    Case "Car"
        column = 13

End Select

If column = 0 Then
    Exit Sub
End If

'Determine row
row = ws.Cells(Rows.Count, column).End(xlUp).row + 1

'Put value in cell
ws.Cells(row, column).Value = ws.Cells(6, 5).Value

End Sub