我有excel表格。
当有人在最后一个单元格中键入文本时,我需要进行设置,因此 excel 会自动将整个表格复制到新列表中,以便继续将下一个数据填充到新列表中。
抱歉,我是 Excel 初学者。我可能需要设置“IF”语句来启动宏,将表复制到新列表。但我不知道该怎么做。
在此先感谢您的每一个提示和建议
我有excel表格。
当有人在最后一个单元格中键入文本时,我需要进行设置,因此 excel 会自动将整个表格复制到新列表中,以便继续将下一个数据填充到新列表中。
抱歉,我是 Excel 初学者。我可能需要设置“IF”语句来启动宏,将表复制到新列表。但我不知道该怎么做。
在此先感谢您的每一个提示和建议
这个宏检查是否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