excel字符串拼接换行符-excel字符串连接换行

发布：更新时间：2023-03-06 23:44:01

本文目录一览：

excel vba 字符串代码如何换行

字符串续航一般先把字符串分成几个小字串，用连接，并使用换行符

str="12311231312323"_

"dsafasdasdasd"

excel字符串拼接换行符-excel字符串连接换行

提供如下两种方式。整体思路均是查找到该关键字符，而后使用公式提取该关键词前后的字符并在关键词前换行。

1、公式法

A1为原单元格，在B1中输入如下公式，下拉即可。

=IF(ISERROR(FIND("关键词",A1,1)),A1,LEFT(A1,FIND("关键词,A1,1)-1)CHAR(10)RIGHT(A1,LEN(A1)-FIND("关键词",A1,1)+1))

2、VBA法

使用如下代码，运行时先后选择单元格区域和关键词，达到操作目标。

Sub Line_feed()

Dim my_Range As Range

Dim my_String As String

Set my_Range = Application.InputBox("Choose the range that will run the macro)", Default:="A1:D10", Type:=8)

my_String = Application.InputBox("Choose the string that will add the line feed after it", Type:=2)

If my_Range.Address = "" Or my_String = "" Then

MsgBox "No valid range selected or no charaoctor inputed!"

Exit Sub

End If

Dim my_Cell As Range

Dim my_Pos As Single

For Each my_Cell In my_Range

If InStr(1, my_Cell, my_String) 0 Then

my_Pos = InStr(1, my_Cell, my_String)

my_Cell.Value = Left(my_Cell, my_Pos - 1) Chr(10) _

Right(my_Cell, Len(my_Cell) - my_Pos + 1)

End If

End Sub

1、以excel2010版本为例，如下图，要把部门和姓名这两个字符串拼接；

2、用符号“”进行拼接则可，在C2单元格输入公式=A2B2，按enter键后则可得到拼接结果；

3、同理，把鼠标放在C2单元格右下角，下拉填充公式，则可把该表格的部门和姓名这两个字符串都拼接了。

文章排行