Question

我有一个候选人列表，我需要在一个名称后插入一行，然后在下拉到另一个单元格后选择该名称。

比方说，我有5个候选项a，b，c，d，e，并且我在下拉列表中选择了候选项b，我需要VBA代码才能在候选项眉下插入行。

Sub Match()
Range("C9").Value = WorksheetFunction.Match(Range("C8").Value, Range("B1:B1000"), 0)

我在c8单元格中有一个下拉列表，我现在在该列中有一个名称列表，在这里我可以找到该文本在哪里，但是我无法在其下插入一行，请帮忙

Answer 1

这应该做到：

Option Explicit
Sub Match()

    Dim MyRow As Long

    With ThisWorkbook.Sheets("MySheet") 'Change MySheet for your sheet name
        MyRow = WorksheetFunction.Match(.Range("C8").Value, .Range("B1:B1000"), 0) + 1
        .Rows(MyRow).Insert
    End With

End Sub

在特定行数之后插入行

1 个答案: