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

2025-03-01 13:17:58
推荐回答(1个)
回答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