通过字符串逐个与空格字符相比较，遇到空格输出换行

符即可。

具体实现方法可以参考如下程序段：

char a[]="ab df23 df% 1df";

int i=0;

for(i=0; a[i]!='\0'; i++) // 遍历字符数组a中所有字符

{

if(a[i]==' ') // 如果字符a[i]为空格字符，那么就输出换行符

printf("\n");

}

Sub 数据换行排列()

Dim reg As Object

Dim sh As Object

Dim r As Object

Dim arr(), brr, m%, c$

brr = Range("H2")

Set reg = CreateObject("vbscriptregexp")

With reg

Global = True

Pattern = "\d"

Set sh = regExecute(Range("H2"))

m = shCount

For i = 1 To m

ReDim Preserve arr(1 To 2, 1 To m)

arr(1, i) = shItem(i - 1)firstindex

If i > 1 Then

If i = 2 Then arr(2, i - 1) = Mid(brr, 1, arr(1, i)) _

Else arr(2, i - 1) = Mid(brr, arr(1, i - 1) + 1, _

arr(1, i) - arr(1, i - 1))

c = c & Chr(10) & arr(2, i - 1)

End If

Next

c = c & Chr(10) & Mid(brr, arr(1, m) + 1)

End With

Range("H3") = c

Set reg = Nothing

End Sub

从来看数据写在H2单元格,此代码临时把数据输出在H3单元格,目的是为了方便与原数据比较

1、首先打开Word文档,输入文字,在最后输入英文字母。

2、当英文字母过长时会自动进行换行,这个时候就会导致上方出现空白。

3、按Ctrl+A将文本全部选中,点击段落的设置按钮。

4、点击中文板式选项,找到——允许西文在单词中间换行。

5、将这个选项勾选,点击——确定即可。

通过字符串逐个与空格字符相比较，遇到空格输出换行符即可。

char a[]="ab df23 df% 1df";

int i=0;

for(i=0; a[i]!='\0'; i++)  // 遍历字符数组a中所有字符

{

    if(a[i]==' ')  // 如果字符a[i]为空格字符，那么就输出换行符

        printf("\n");

}

选择单元格

[数据]->[数据工具]->[分列]

d出文本分列向导，选择“分隔符号”，下一步“分隔符号“选空格

预览窗格可看到分列预览，点击”完成“，自动把单元格内容分成7列

选择分列得到的7个单元格，复制

到目标单元格，右击，选”选择性粘贴“->勾选”转置“，确定

代码换行使用空格加“_”，如：

Text1text= _

"abcdefghigklmnop"

但是不能将字符串直接分开，因为系统会认为“ _”是字符串里的内容，可以这样：

Text1text="abcdef" & _

"ghigklmnop"

界面文字换行用换行符 vbCrlf ，即 Chr(13) & Chr(10)，如

Text1text="abcdef" & vbCrlf & "ghigklmnop"

综合：

Text1text= "abcdef" & _

vbCrlf & "ghigklmnop"