如何将表格的字段单独分出来

qianyinhuafa

请教各位大神，如何将表一里面的字段单独按照表二的格式分出来？

awp57

Sub 宏1()
'
' 宏1 宏
'

'
    Range("A7").Select
    Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
   
    Cells.Replace What:="：", Replacement:=":", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="企业名称", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="法人", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="，", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="电话", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="会计", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="企业名城", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    ActiveWindow.SmallScroll Down:=57
    Cells.Replace What:="。", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="公司负责人", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A76").Select
    ActiveWindow.SmallScroll Down:=-87
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=True, Comma:=True, Space:=True, Other:=True, OtherChar:= _
        ":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("A6").Select
    ActiveWindow.SmallScroll Down:=-9
    Columns("A:A").ColumnWidth = 10.88
    Range("D12").Select
    ActiveWindow.SmallScroll Down:=-75
    Range("C11").Select
    ActiveWindow.SmallScroll Down:=-24
   
   
        Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Range("B9").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets(1).Select
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets(1).Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "企业名称"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "法人"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "电话"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "会计"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "电话"
    Sheets(1).Select
End Sub

awp57

处理90%  剩下的自己手动处理

函数二把刀

整了大部分出来，剩余自己 手动