求教，问题如图所示，注意姓名那一列是合并单元格

先给你说下思路：if cells(i,2)<>"" then arr(j) = Cells(i, 2).Value赋值给动态数组，然后再数组输入单元格区域。

ReDim arr(1 To rcount)
For i = 2 To r
If Cells(i, 2) <> "" Then
j = j + 1
arr(j) = Cells(i, 2).Value
End If
Next i

1,排序...空格的自然就排到一起了,再把需要的粘贴过来.
2,用vba取源数据进入数组,遍历数组,发现有值的,就输出到表2