將特定單元格復制到特定列

Question

單元格 E8 和 E6 是相關的下拉列表，它們正在工作。

• 如果我在單元格 E8 中使用 select 工具，則單元格 E6 會列出所有工具。
• 如果我 select 單元格 E8 中的設備，則單元格 E6 給了我所有的設備。

此相關下拉列表的范圍來自 K 到 M 列。

現在我想在我的依賴下拉列表中自動添加更多名稱。

• 如果 E8 =“工具”，則將單元格 E6 中的名稱復制到“L”列的最后一行
• 如果 E8 = “設備”，則將單元格 E6 中的名稱復制到“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