如何用VBA代码把单元格有换行符的多行数据单独提取成单行单元格中

Question

如题所述

Answer 1

把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