Perhaps, excel version...
Try
Sub test()
Dim ws As Worksheet, r As Range, a, x, n As Long, temp
Application.ScreenUpdating = False
With Sheets("master")
.Cells(1).CurrentRegion.Offset(1).ClearContents
.Columns("b:c").NumberFormat = "@"
For Each ws In Worksheets
If ws.Name <> .Name Then
n = .Cells(1).CurrentRegion.Rows.Count + 1
x = Application.Match("adres:", ws.Columns(1), 0)
.Cells(n, 1) = ws.Cells(x, 2)
temp = ws.Cells(x, 1).Resize(20).Address
a = Filter(ws.Evaluate("transpose(if((" & temp & _
"<>"""")*(isnumber(" & temp & "+0))," & temp & "))"), False, 0)
If UBound(a) > -1 Then .Cells(n, 2).Resize(UBound(a) + 1).Value = Application.Transpose(a)
temp = ws.Cells(x, 6).Resize(20).Address
a = Filter(ws.Evaluate("transpose(if((" & temp & _
"<>"""")*(isnumber(" & temp & "+0))," & temp & "))"), False, 0)
If UBound(a) > -1 Then .Cells(n, 3).Resize(UBound(a) + 1) = Application.Transpose(a)
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Bookmarks