|
发表于 2017-5-18 11:28
|
显示全部楼层
本楼为最佳答案
- Sub Grf()
- arr = Sheets(1).[a1].CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 40)
- For i = 2 To UBound(arr)
- If arr(i, 7) = "户主" Then
- n = n + 1: k = 0
- brr(n, 1) = arr(i, 1)
- brr(n, 2) = arr(i, 6)
- brr(n, 3) = arr(i, 2)
- brr(n, 4) = arr(i, 3) & arr(i, 4)
- Else
- k = k + 1: j = 4 * k + 1
- If jmax < j Then jmax = j
- brr(n, j) = arr(i, 1)
- brr(n, j + 1) = arr(i, 2)
- brr(n, j + 2) = arr(i, 7)
- brr(n, j + 3) = arr(i, 9)
- End If
- Next
- [a2].Resize(n, jmax + 3) = brr
- ActiveSheet.Columns.AutoFit
- End Sub
复制代码 |
|