回答的级别都这么高啊,我评论一下吧。COUNTIFABS的回答貌似高级,但是不实用,问主可能不会用。qdefree的回答太低级,可以这样做,但是想从哪里分行了不行。yshcy|的回答“光标定在想要分行的字符的后面,按ALT+回车键,一行的内容就会变成两行显示。”才是正确的,想多少行都行,想在哪里分行了都可以。
光标停在需要分行的地方,同时点击“ALT”键和“回车”键。一行的内容就会分成二行。
光标定在想要分行的字符的后面,按ALT+回车键,一行的内容就会变成两行显示。
Sub aa()
Dim x
For x = 2 To Range("c1000000").End(3).Row
If Cells(x, 3) > 1 Then
Range("C" & x).End(xlToLeft).Resize(1, 3).Copy Range("A1000000").End(3).Offset(1, 0).Resize(Range("C" & x) - 1, 3)
End If
Next x
MsgBox "处理完成,请查收!"
End Sub
具体见给你的附件!
单元格格式 对齐 自动换行就行了吧?