村民管理表格格式转换求助

考试加油站

村民管理格式转换求助.xls.rar (3.42 KB, 下载次数: 13)

2018-8-29 11:23 上传

点击文件名下载附件

小花鹿

循环判断，如果B列不为空则为户主，产生一条记录，如果F列不为空则为该户成员，产生一条记录

魂断蓝桥

Option Explicit

Sub a()
Dim arr, brr(1 To 65535, 1 To 7), i&, t&, m&
arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(arr)
    If arr(i, 1) <> "" Then
            m = m + 1
            t = t + 1
            brr(t, 1) = m
            brr(t, 2) = arr(i, 1)
            brr(t, 3) = arr(i, 2)
            brr(t, 4) = arr(i, 3)
            brr(t, 5) = arr(i, 4)
            brr(t, 6) = arr(i, 5)
            brr(t, 7) = "户主"
                If arr(i, 6) <> "" Then
                        t = t + 1
                        brr(t, 1) = m
                        brr(t, 2) = brr(t - 1, 2)
                        brr(t, 3) = arr(i, 6)
                        brr(t, 4) = arr(i, 7)
                        brr(t, 5) = arr(i, 8)
                        brr(t, 6) = arr(i, 9)
                End If
            Else
                 t = t + 1
                        brr(t, 1) = m
                        brr(t, 2) = brr(t - 1, 2)
                        brr(t, 3) = arr(i, 6)
                        brr(t, 4) = arr(i, 7)
                        brr(t, 5) = arr(i, 8)
                        brr(t, 6) = arr(i, 9)
        End If
    Next
[a2:g65535] = ""
[a2].Resize(t, 7) = brr
End Sub

考试加油站

魂断蓝桥 发表于 2018-8-29 14:23
Option Explicit

Sub a()

非常感谢您的帮忙，谢谢