☰

双击将数据从一张表传输到另一张表

tag-icon • tag-icon microsoft-excel vba
双击将数据从一张表传输到另一张表

Sheet1 中的数据以行的形式显示，我想选择任意行并双击它，然后它会传输到 Sheet2 并作为 Sheet2 中的一列显示。

答案1

此 VBA（宏）将帮助您将整行复制到另一张表：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


If Target.Column = 1 Then
    On Error Resume Next
    Target.EntireRow.Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)


    If Err.Number <> 0 Then
        Target.EntireRow.Copy Sheets("Sheet2").Range("A1")
    End If
    On Error GoTo 0

End If

End Sub

怎么运行的：

  • 将此代码复制并粘贴为标准模块。
  • 双击 A 列中的任意单元格即可复制整行。
  • 此代码将逐行复制，而不会覆盖目标中的现有行。
  • 目的地Sheet 2可编辑。

相关内容