如何提取B列有数据的行并在新的工作表中汇总？

jymx

如何提取B列有数据的行并在新的工作表中汇总？
》》原表如下：
　　A　　　　B　　　　C　　　　D　　　　E　　　　F　　　　G
1　日期　　　姓名　　销售物品　销售金额　是否送货　　　　　　　　
2　1.2　　　　李　　 物品1　　10　　　　否　　
3　　　　　　　　　　物品2　　　　　　
4　　　　　　　　　　物品3　　　　　　
5　1.2　　　　王　　 物品1　　10　　　　否　　　　　　　　　　　　　　　　　
6　　　　　　　　　　物品2
7　　　　　　　　　　物品3
》》需要结果如下：
　　A　　　　B　　　　C　　　　D　　　　E　　　　F　　　　G
1　日期　　　姓名　　销售物品　销售金额　是否送货　　　　　　　　
2　1.2　　　　李　　 物品1　　10　　　　否　
3　1.2　　　　王　　 物品1　　10　　　　否　　　　　　　　　　　　　　　　　　


也就是只保留B列有数据行，全部合在一起在新的工作中依次显示

蓝桥玄霜

Sub yy()
Dim Myr&, Arr,x&,n%
Myr = Sheet1.[c65536].End(xlUp).Row
Arr = Sheet1.Range("a2:e" & Myr)
n = 1
For x = 1 To UBound(Arr)
    If Arr(x, 2) <> "" Then
        n = n + 1
        Sheet2.Cells(n, 1).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, x, 0)
    End If
Next x
Sheet2.[a1].Resize(1, 5) = Array("日期", "姓名", "销售物品", "销售金额", "是否送货")
End Sub