首页 文章

如果值等于2，则复制整行并粘贴到工作表中

提问于
浏览 次
-2

我有一个工作簿，其中sheet1具有格式化为表格，第一列列出了数字，然后是旁边的一些项目 . 〔实施例：

Column1    Column2    Column3    Column4
   1        Blue       Green     Yellow
   2        Apple      Grape      Mango
   3       Computer    Phone      Tablet

我想创建VBA模块，如果我在Sheet2.A1范围内输入数字“2”，它将复制该行：

2        Apple      Grape      Mango

并将其粘贴到sheet2中 .

excel vba excel-vba

1 回答

  • -1

    假设您要复制4个单元格 . 下面的代码被复制到 Sheet1 的模块中 . 检查 Target 以确保它是第一列，并且仅编辑单个单元格 .

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Column = 1 Then
        Target.Resize(ColumnSize:=4).Copy Sheet2.Cells(Rows.Count, "A").End(xlUp).Offset(RowOffset:=1)
    End If
End Sub

    可以做的还有很多，但上面应该有助于提供一个框架 . 看看Worksheet.Change Event和Range Object也是如此，因为它们是用来实现这一目的的 .

    回复于

相关问题