数据处理-VBA 批量结构化简历数据

 

Sub 新版简历处理()
  \'MsgBox Sheets.Count

\'基本信息 a2:b23 自我评价
\'a24
\'
\' robb1 工作经历
\'rowbb2 项目经验
\'rowbb3 教育经历
\'rowbb4 培训经历

For i = 3 To Sheets.Count      \'从第三个工作表开始
   \'sheetname = Sheets(i).Name
   
   \'1---基本信息
   Sheets(i).Select       \'sheet(6) 6是顺序是第六个，和名称无关       
    
    Range(Cells(2, 1), Cells(21, 2)).Select \'21 修改--------
    Selection.Copy
    
  Sheets("总表").Select
  row1 = Sheets("总表").Range("B65536").End(xlUp).Row + 1
        \'查找B列中最后一个已使用的单元格 行标
     \'MsgBox row1
  Range("A" & row1).Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  Application.CutCopyMode = False \'清空剪贴板
    
  
  
  \'2---工作经历
   Sheets(i).Select
   
       For rowb1 = 15 To 30
       If (Range("a" & rowb1) Like "工作经历") Then
          rowbb1 = rowb1
          Exit For
       End If
    Next rowb1
  
  
     For rowb2 = 22 To 200    \'22---
       If (Range("a" & rowb2) Like "项目经验") Then
          rowbb2 = rowb2
          Exit For
       End If
    Next rowb2
      
    Range("b" & rowbb1 & ":b" & rowbb2).Select
    \'Range(Cells("b", rowbb1), Cells("b", robb2)).Select
    Selection.Copy
    
  Sheets("总表").Select
  row1 = Sheets("总表").Range("B65536").End(xlUp).Row + 1
         \'查找B列中最后一个已使用的单元格 行标
     \'MsgBox row1
  Range("A" & row1).Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  Application.CutCopyMode = False \'清空剪贴板
  
   \'3---项目经验
    Sheets(i).Select
     For rowb3 = rowbb2 To 200
       If (Range("a" & rowb3) Like "教育经历") Then
          rowbb3 = rowb3
          Exit For
       End If
    Next rowb3
      
    Range("a" & rowbb2 & ":B" & rowbb3).Select
    Selection.Copy
    
  Sheets("总表").Select
  row1 = Sheets("总表").Range("B65536").End(xlUp).Row + 1
           \'查找B列中最后一个已使用的单元格 行标
     \'MsgBox row1
  Range("A" & row1).Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  Application.CutCopyMode = False \'清空剪贴板
   
     \'4---教育经历
    Sheets(i).Select
     For rowb4 = rowbb3 To 200
       If (Range("a" & rowb4) Like "培训经历") Then
          rowbb4 = rowb4
          Exit For
       End If
    Next rowb4
      
    Range("b" & rowbb3 & ":B" & rowbb4).Select
    Selection.Copy
    
  Sheets("总表").Select
  row1 = Sheets("总表").Range("B65536").End(xlUp).Row + 1
     \'查找B列中最后一个已使用的单元格 行标
     \'MsgBox row1
  Range("A" & row1).Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  Application.CutCopyMode = False \'清空剪贴板
   
    
 Next i
 MsgBox "over.."
End Sub

　　

 

 

 

一般excel 100份简历数据。