把A列有空格的单元格放到C列;
表结果如图:
Sub adf() Dim x% For x = 1 To 7 If Application.WorksheetFunction.IsError(Application.Find(" ", Cells(x, 1))) = False Then Range("a" & x).Copy Range("c1000").End(3).Offset(1, 0) End If Next x End Sub