Question

我正在制作一个ERP系统，该系统将我的所有信息存储在一个电子表格中，每行数据都有自己的ID号，并且我正在尝试编写代码以在输入ID时将整行向上拉该特定行的编号。由于行进格式不是直线，因此我需要控制每个单元格并从该目标位置复制它

我已经有了用于定位数据所在行的代码，现在我试图找到一种方法将所需的每个单元格从该行复制到我想要的位置，但是我不知道如何继续使用行号。

InputValue = Application.InputBox("Type ID number", "Pull a delivery-note back up")


If InputValue = vbNullString Then

    MsgBox "Please type an ID number to proceed"

Else

    idRow = Sheets("Arkiv").Columns("A:A").Find(what:=InputValue).Row
    'To output current row (temporarily there) *IGNORE*
    MsgBox idRow


End If

还没有找到进一步解决此问题的方法

Answer 1

类似的东西应该可以工作：

Sub Test()

    Dim InputValue As Variant
    Dim rID As Range

    InputValue = Application.InputBox("Type ID number", "Pull a delivery-note back up")


    If InputValue = vbNullString Then

        MsgBox "Please type an ID number to proceed"

    Else
        With Sheets("Arkiv")

            Set rID = .Columns("A:A").Find(what:=InputValue)

            'Check the ID was found.
            If Not rID Is Nothing Then
                Union(.Cells(rID.Row, 1), .Cells(rID.Row, 2), .Cells(rID.Row, 5)).Copy _
                    Destination:=Sheets("Sheet1").Range("A1")
            Else

                MsgBox "ID not found."
            End If

        End With
    End If

End Sub

注意-这将复制到单元格A1：C1。

当只有行号时，如何复制行？

1 个答案: