1

我有excel表格。

当有人在最后一个单元格中键入文本时，我需要进行设置，因此 excel 会自动将整个表格复制到新列表中，以便继续将下一个数据填充到新列表中。

抱歉，我是 Excel 初学者。我可能需要设置“IF”语句来启动宏，将表复制到新列表。但我不知道该怎么做。

在此先感谢您的每一个提示和建议

4

1 回答 1

1

这个宏检查是否A30是RUN_THIS，如果是，它会复制A1 到A29从 开始的区域B1。如果您希望其中任何一个有所不同，则必须修改脚本。要创建宏，请右键单击Sheet1电子表格底部的工作表名称 ( )，然后选择View Code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A30:A30")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

    ' This will check to see if cell A30 is equal to RUN_THIS and  It then
    ' copies the values from A1 through A29 to the space starting at B1

    Worksheets("Sheet1").Range("A30").Select

    If Worksheets("Sheet1").Range("A30").Value = "RUN_THIS" Then
        Range("A1:A29").Select
        Selection.Copy
        Range("B1").Select
        ActiveSheet.Paste
        Range("D15").Select
    End If

    End If
End Sub
于 2013-05-29T17:02:34.183 回答