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

把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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/eejer2xyjrf2jv2yfe2.html