excel - 使用按钮进行行选择和复制

Question

我正在尝试使用 Excel 中的按钮将特定范围的单元格从事件工作簿复制到另一个工作簿。当我在分配的宏中为每个按钮指定固定范围时，复制效果非常好，但我对如何在每个按钮上使用相同的宏以及如何让按钮的行号指示要复制的数据行感到困惑。

每行包含 6 个左右单元格，第 7 个单元格包含按钮。当用户按下此按钮时，需要复制与包含按下的按钮的行位于同一行的 6 个单元格。

对于 VBScript，我完全是个新手，但经过大量的谷歌搜索，我已经走到了这一步:

Sheets("SurfaceThreats").Range("A4:F4")Copy_
Sheets("ORBAT").Cells(Rows.Count,1).End(x1Up).Offset(1,0)

当然有比为每个按钮分配不同的固定范围宏更优雅的解决方案。

Answer 1

查看此屏幕截图

这是选择行按钮的代码

Option Explicit

Private Sub CommandButton1_Click()
    Dim Ret As Range, rng As Range
    Dim lRow As Long

    On Error Resume Next
    Set Ret = Application.InputBox("Please select the row", Type:=8)
    On Error GoTo 0

    If Not Ret Is Nothing Then
        For Each rng In Ret.Rows
            '~~> Get the last row in sheets "ORBAT" where you want to copy
            With Sheets("ORBAT")
                lRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            End With

            '~~> Copy the rows
            Sheets("SurfaceThreats").Range("A" & rng.Row & ":F" & rng.Row).Copy _
            Sheets("ORBAT").Cells(lRow, 1)
        Next
    End If
End Sub