vba 在G列找到张三并在上面插入3行

光影以北

怎么用vba实现在G列找到张三并插入啊，我只会在固定格子上插入


Range("G1:N5").Select
Selection.Copy
Range("G17").Select
Selection.Insert Shift:=xlDown

盼盼198310

首先找到张三所在的单元格,然后再插入,定位张三可以循环可以用find,看自己爱好

niko88819

这意思吗?

1. Sub InsertRows()
   
2.     Dim searchText As String
   
3.     Dim searchRange As Range
   
4.     Dim searchResult As Range
   
5.    
   
6.     '设置要搜索的文本
   
7.     searchText = "张三"
   
8.    
   
9.     '设置要搜索的范围
   
10.     Set searchRange = Range("G:G")
    
11.    
    
12.     '在搜索范围内查找文本
    
13.     Set searchResult = searchRange.Find(What:=searchText, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
    
14.    
    
15.     '如果找到了文本，就在其下方插入3行
    
16.     If Not searchResult Is Nothing Then
    
17.         searchResult.Offset(1, 0).Resize(3, 1).EntireRow.Insert
    
18.     End If
    
19. End Sub

复制代码

zjzyj

a = Cells(Rows.Count, "G").End(xlUp).Row
For i = a To 1 Step -1
    If Cells(i, "G").Value = "张三" Then
        Cells(i, "G").Resize(3).Insert Shift:=xlDown
    End If
Next

excel玉米

Sub 插入()
  i = 1                        '如果不是从第一行开始，从第三行开始，就设 i=3
  Do While Len(Cells(i, 7)) > 0        '名字是连续的，中间不可留空
     If Cells(i, 7) = "张三" Then
       Range("G" & i).Insert Shift:=xlDown
       i = i + 1
     End If
     i = i + 1
  Loop
End Sub

光影以北

盼盼198310 发表于 2023-3-6 14:51
首先找到张三所在的单元格,然后再插入,定位张三可以循环可以用find,看自己爱好

我想再咨询一下 我用find定位后，有没有什么命令可以定位到张三前一格呢

光影以北

zjzyj 发表于 2023-3-6 15:06
a = Cells(Rows.Count, "G").End(xlUp).Row
For i = a To 1 Step -1
    If Cells(i, "G").Value = "张三 ...

那如果我想再加一个条件 就是等于张三和李四时加空格，
我用

a = Cells(Rows.Count, "G").End(xlUp).Row
For i = a To 1 Step -1
    If Cells(i, "G").Value = "张三"  or  Cells(i, "G").Value = "李四"  Then
        Cells(i, "G").Resize(3).Insert Shift:=xlDown
    End If
   i=i+1
Next

为什么不能实现呢

zjzyj

光影以北 发表于 2023-3-6 21:28
那如果我想再加一个条件 就是等于张三和李四时加空格，
我用

倒序循环里为什么要加那句i=i+1呢？去掉

盼盼198310

光影以北 发表于 2023-3-6 20:50
我想再咨询一下 我用find定位后，有没有什么命令可以定位到张三前一格呢

Offset 偏移

光影以北

zjzyj 发表于 2023-3-7 08:14
倒序循环里为什么要加那句i=i+1呢？去掉

哦哦 好的，我瓜了，+1 反而给他跳过了