类似树结构的合并单元格

huo200707

大佬们：
这个问题 绕了我2天了，求助
想根据A列，分出‘ 国家 --  省 -- 市 -- 县’的 树结构

以符号‘.’作为分割符，分出国、省、市县

1国
1.1省
1.1.1市
1.1.1.1县

zpy2

create temp table aa as
select (select f02 from 树形合并单元格显示 a  where substr(b.f01,1,1)=a.f01 limit 1) 国,(select f02 from 树形合并单元格显示 a  where  substr(b.f01,1,3)=a.f01 limit 1) 省, (select f02 from 树形合并单元格显示 a  where  substr(b.f01,1,5)=a.f01 limit 1) 市,(select f02 from 树形合并单元格显示 a  where  substr(b.f01,1,7)=a.f01 limit 1) 区,f03 from 树形合并单元格显示 b where f03;
cli_merge_row~aa~3;

liulang0808

Sub ttt()
    arr = [a1].CurrentRegion
    For i = 1 To 5
        str1 = ""
        k = ""
        For j = 1 To UBound(arr)
            brr = Split("." & arr(j, 1), ".")
            If UBound(brr) >= i Then
                If str1 = "" Then
                    str1 = brr(i)
                    k = arr(j, 2)
                    Cells(j, 4 + i) = k
                Else
                    If str1 = brr(i) Then
                        Cells(j - 1, i + 4).Resize(2).Merge
                    Else
                        str1 = brr(i)
                        k = arr(j, 2)
                        Cells(j, 4 + i) = k
                    End If
                End If
            End If
        Next j
    Next i
    For j = 1 To UBound(arr)
        Cells(j, 9) = arr(j, 3)
    Next j
End Sub

liulang0808

12345.zip (16.37 KB, 下载次数: 10)

2023-3-30 10:53 上传

点击文件名下载附件

zxsea_7426

liulang0808 发表于 2023-3-30 10:53

代码运行结果：

zxsea_7426

我也发一个,结果输出到新工作表中去了:

zxsea_7426

zpy2 发表于 2023-3-30 10:47
create temp table aa as
select (select f02 from 树形合并单元格显示 a  where substr(b.f01,1,1)=a.f0 ...

在手机上搞，真心牛X

半百

liulang0808

以此为准