如何用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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
