python如何批量处理excel_求助python批量处理excel问题

[Visual Basic] 纯文本查看 复制代码Function 处理()

Dim 正则 As Object, 正则结果 As Object, 子匹配文本 As Object

Dim 行, 小标题行, 下一个小标题行, 小标题, 下一个小标题, 当前行内容, 次数

行 = 1

次数 = 0

Set 正则 = CreateObject("vbscript.regexp")

正则.Global = True

正则.Pattern = "[0-9]+、.+"

Do While True

If Range("A" & 行) = "感谢您对本课题研究的支持，问卷填写过程中有任何问题请和我们联系！" Then

Rows(小标题行 & ":" & (行 - 1)).Copy

小标题 = Left(小标题, Len(小标题) - 1)

Sheets.Add(, Sheets("企业成长性调查")).Name = 小标题

Sheets.Select ("企业成长性调查")

Sheets(小标题).Activate

Range("A1").Select

ActiveSheet.Paste

Sheets.Select ("企业成长性调查")

Sheets("企业成长性调查").Activate

Exit Do

End If

Set 正则结果 = 正则.Execute(Range("A" & 行))

If 正则结果.Count = 1 Then

If 次数 = 1 Then

下一个小标题行 = Range("A" & 行)

Rows(小标题行 & ":" & (行 - 1)).Copy

Sheets.Add(, Sheets("企业成长性调查")).Name = 小标题

Sheets.Select ("企业成长性调查")

Sheets(小标题).Activate

Range("A1").Select

ActiveSheet.Paste

Sheets.Select ("企业成长性调查")

Sheets("企业成长性调查").Activate

次数 = 0

End If

If 次数 = 0 Then

小标题 = Range("A" & 行)

小标题行 = 行

次数 = 1

End If

End If

行 = 行 + 1

Loop

End Function