首页 › 实战技术 › 每按一次重复一次VBA

nnsea 发表于 2023-12-26 23:43:27

每按一次重复一次VBA

Sub AddData()
    ' 添加新行
    Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      
    ' 在新行中输入数据
    Cells(1, 1).Value = "姓名"
    Cells(1, 2).Value = "年龄"
    Cells(1, 3).Value = "城市"
End Sub

查看完整版本: 每按一次重复一次VBA