解决我vba问题的重赏

我有个工作簿workbook，里面有很多工作表worksheets。每个工作表格式都一样。但是由于内容长短不一，造成不用的工作表核心内容开始的地方不一样。我为了能应用函数摘出核心内容，想把它们的格式都统一起来。所以我的目的是，查找每个worksheet第一列（也就是A列）里的内容“profile”（只有一个）。如果profile所在行的行数小于31，那在其上方插入一行，直到profile处在第31行，这样profile以后的内容都是规则的了。
请给出vba代码。谢谢。我vba在初学阶段，格式不太熟悉，所以不知道自己用对没有。请高手指教。

Dim i As Integer
Dim j As Integer
Dim intRow As Integer
For i = 1 To ThisWorkbook.Sheets.Count
    ThisWorkbook.Sheets(i).Activate
    Columns("A:A").Select
    Selection.Find(What:="profile", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
    intRow = ActiveCell.Row
    If intRow < 31 Then
        Rows(intRow & ":" & intRow).Select
        For j = intRow To 30
            Selection.Insert Shift:=xlDown
        Next j
        
    End If
   
Next i
把上面的代码放到Workbook_Open()中

帮2楼简化了一下代码。

1. Sub a()
   
2. Dim i As Integer
   
3. Dim j As Integer
   
4. Dim intRow As Integer
   
5. For i = 1 To ThisWorkbook.Sheets.Count
   
6.     ThisWorkbook.Sheets(i).Activate
   
7.     Columns("A:A").Select
   
8.     Selection.Find(What:="profile").Activate
   
9.     intRow = ActiveCell.Row
   
10.     If intRow < 31 Then
    
11.         Rows(intRow & ":" & intRow).Select
    
12.         For j = intRow To 30
    
13.             Selection.Insert Shift:=xlDown
    
14.         Next j
    
15.     End If
    
16. Next i
    
17. End Sub

复制代码