上个霍兰德中的宏单独存出来

Sub 按钮1_Click()
 
  '先取单元格内容到数组
  Dim N(6) As Integer
  Dim i As Integer
  Dim temp, tempinof, Max1, Max2, Max3 As Integer
  Dim tempStr As String
  i = 1
  Do While i <= 6
  temp = i + 1
  N(i) = Worksheets("jieguotu").Range("C" & temp)
  i = i + 1
  Loop
  '数组排序基本算法，找出前三
  temp = 0
  i = 1
  For i = 1 To 6
  If N(i) > temp Then
  temp = N(i)
  tempinfo = i
  End If
  Next
  Max1 = tempinfo
 
  N(Max1) = 0
   temp = 0
  i = 1
  For i = 1 To 6
  If N(i) > temp Then
  temp = N(i)
  tempinfo = i
  End If
  Next
  Max2 = tempinfo
  N(Max2) = 0
 
  temp = 0
  i = 1
  For i = 1 To 6
  If N(i) > temp Then
  temp = N(i)
  tempinfo = i
  End If
  Next
  Max3 = tempinfo
 
 '填内容了
 temp = Max1 + 4
 Worksheets("baogao").Range("D27") = Worksheets("baogao").Range("C" & temp)
  temp = Max1 + 2
  Worksheets("baogao").Range("A28") = "特征倾向:" & Chr(10) & "    " & Worksheets("六种类型").Range("C" & temp) & Chr(10) & "典型职业:" & Chr(10) & "    " & Worksheets("六种类型").Range("D" & temp)
 
  '填第二项
   temp = Max2 + 4
 Worksheets("baogao").Range("D29") = Worksheets("baogao").Range("C" & temp)
  temp = Max2 + 2
  Worksheets("baogao").Range("A30") = "特征倾向:" & Chr(10) & "    " & Worksheets("六种类型").Range("C" & temp) & Chr(10) & "典型职业:" & Chr(10) & "    " & Worksheets("六种类型").Range("D" & temp)
 
  '填第三项
 
     temp = Max3 + 4
 Worksheets("baogao").Range("D31") = Worksheets("baogao").Range("C" & temp)
  temp = Max2 + 2
  Worksheets("baogao").Range("A32") = "特征倾向:" & Chr(10) & "    " & Worksheets("六种类型").Range("C" & temp) & Chr(10) & "典型职业:" & Chr(10) & "    " & Worksheets("六种类型").Range("D" & temp)

'最后一项的类型名称
temp = Max1 + 4
  Worksheets("baogao").Range("D33") = Worksheets("baogao").Range("E" & temp)
  temp = Max2 + 4
  Worksheets("baogao").Range("D33") = Worksheets("baogao").Range("D33") & Worksheets("baogao").Range("E" & temp)
  temp = Max3 + 4
  tempStr = Worksheets("baogao").Range("D33") & Worksheets("baogao").Range("E" & temp)
  Worksheets("baogao").Range("D33") = "  " & tempStr & "型"
'最后一项的内容和前边不一样啊（哭哭酷酷）
'Worksheets("对应职业").Activate
 ' temp = Range("A:A").Find(tempStr).Row改成这两句还是不能用，用笨办法试试。
 
 For i = 2 To 73
 If tempStr Like Worksheets("对应职业").Range("A" & i).Value Then
    Worksheets("baogao").Range("A34") = "    " & Worksheets("对应职业").Range("B" & i)
 End If
 Next
 '还好，成功了！
 Worksheets("baogao").Activate
 
'Worksheets("baogao").Range("H2") = "aaa"
End Sub