请教一下如何实现点击按钮增加行的效果

flyingchg

如图，录制宏好像只能从固定的单元增加，这个是有变量的。。请大神教一下感谢~

cidanji

在第i行下插入一行：rows(i+1).insert

jy03342543

Option Explicit
Sub 张三()
Dim Rng张三 As Long
  Rng张三 = Columns(1).Find("张三", searchdirection:=xlPrevious).Row + 1
   Rows(Rng张三).Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub 李四()
Dim Rng李四 As Long
  Rng李四 = Columns(1).Find("李四", searchdirection:=xlPrevious).Row + 1
   Rows(Rng李四).Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

jy03342543

因为没有附件就只用张三李四做了示例

flyingchg

jy03342543 发表于 2023-7-13 15:47
因为没有附件就只用张三李四做了示例

就是我想要的效果，感谢大佬~崇拜~

jy03342543

flyingchg 发表于 2023-7-13 15:58
就是我想要的效果，感谢大佬~崇拜~

不客气 好用的话记得给朵鲜花哈