数据处理-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份简历数据。