如何将A列的数据，根据条件1和条件2，做成EF列的格式分成2列

路的这一边 · 发表于 2022-12-9 11:39

如何将A列的数据，根据条件1和条件2，做成EF列的格式分成2列
条件1，e1：e3 = a1:a3
条件2，当a列单元格是 *省*，*自治区*，北京市*，上海市*，天津市*，重庆市*，*兵团*时，单独做一行。
该省下的市、区，依次在E F列中左右排列下来。

微信截图_20221209113810.png

fzxba · 发表于 2022-12-9 12:36

Sub test1()
Dim ar, br() As String, Re As Object
Dim i As Long, j As Long, x As Integer, y As Long
Set Re = CreateObject("VBScript.RegExp")
Re.Global = True
Re.Pattern = "省|自治区|北京市|上海市|天津市|重庆市|兵团"
ar = Range("A1").CurrentRegion.Resize(, 1)
ReDim br(1 To UBound(ar), 1 To 2)
For i = 1 To 3
y = y + 1
br(y, 1) = ar(i, 1)
Next
For i = 4 To UBound(ar)
If Re.test(ar(i, 1)) Then
j = 0
y = y + 1
br(y, 1) = ar(i, 1)
Else
j = j + 1
x = j Mod 2
y = y + x
br(y, 2 - x) = ar(i, 1)
End If
Next
Range("E1").Resize(y, UBound(br, 2)) = br
Set Re = Nothing
Beep
End Sub

复制代码

fzxba · 发表于 2022-12-9 12:43

工作簿1209.rar (22.24 KB, 下载次数: 14)

路的这一边 · 发表于 2022-12-9 16:57

fzxba 发表于 2022-12-9 12:43

谢谢老师的帮助，学习了

gwjkkkkk · 发表于 2022-12-9 22:41

fzxba 发表于 2022-12-9 12:43

正则应该是正解。。。

		自动登录	找回密码
密码			免费注册

[已解决] 如何将A列的数据，根据条件1和条件2，做成EF列的格式分成2列

评分

评分

评分