Filter result from two columns

[Vishaal]

HI, we want to filter data from two column to one

Barc	Second
SQ352
SQ353
SQ354
	SQ354 - 1
SQ353
SQ354
	SQ354 - 2

required result

Result
SQ352
SQ353
SQ354
SQ354 - 1
SQ353
SQ354
SQ354 - 2

help please

 

[kevin9999]

Probably a dozen ways to do this, here's just one. You haven't indicated the location of the "Result" column, so the option below puts the output to column D. Change the sheet name to suit.

Option Explicit
Sub Vishaal()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")    '<~~ *** Change to actual sheet name ***
    
    Dim a, b, i As Long, j As Long
    a = ws.Range("A2:B" & Range("A:B").Find("*", , xlFormulas, , xlByRows, xlPrevious).Row)
    ReDim b(1 To UBound(a, 1), 1 To 1)
    j = 1
    For i = 1 To UBound(a, 1)
        If a(i, 1) = "" And a(i, 2) = "" Then GoTo Skip
        If a(i, 1) = "" Then
            b(j, 1) = a(i, 2): j = j + 1
        Else
            b(j, 1) = a(i, 1): j = j + 1
        End If
Skip:
    Next i
    ws.Range("D2").Resize(UBound(b, 1)).Value = b
End Sub

Result after running the code:

Book1
	A	B	C	D
1	Barc	Second		Result
2				SQ352
3				SQ353
4	SQ352			SQ354
5	SQ353			SQ345 - 1
6	SQ354			SQ353
7		SQ345 - 1		SQ354
8	SQ353			SQ345 - 2
9	SQ354
10		SQ345 - 2
11
Sheet1

 

[Vishaal]

thanks kevin9999, its working,

its my mistake, i required a formula instead of vba, can you please share the excel formula

 

[Sam_D_Ben]

Are you looking for this, C2 "=IF(ISBLANK(A2),B2,A2)"

 

[Vishaal]

yes, thanks Sam_D_Ben

 

[Vishaal]

thanks @kevin9999 and @Sam_D_Ben
my problem solved

 

[Sam_D_Ben]

You're welcome!

 

[Vishaal]

thanks Sam_D_Ben

But you have removed all the blank rows from Column A and B, and we have the data where there are many blank rows

Result which you have provided is good, kindly check again please

Thanks