excel vba当数据等于20时在它下方插入一行，并在插入的行里粘贴指定的行内容

显示全部楼层 · 2013-2-21 23:29:49

把等于20的那一行的下方插入一行，粘贴内容为16行？插入以就可就不是16行了，应该是17行了...

千问 · 2013-2-21 23:29:49

Sub iTest()
Dim rg1 As Range, rg2 As Range, c As Range, n
Set rg1 = Rows(16)
Set rg2 = Range("A1:A" & rg1.Row - 1)
n = 20
Set c = rg2.Find(n, LookIn:=xlVal...

千问 · 2013-2-21 23:29:49

不知道出现20这样的数据是否是在同一列，格式是怎么样，要粘贴的内容是什么...

千问 · 2013-2-21 23:29:49

可以实现..把你的具体要求发出来撒...