回覆列表
  • 1 # 辦公幫幫堂

    幾個單元格合併使用符號“&”。

    合併效果1:龍泉十小三年級二班小強

    Excel公式為=需要合併單元格&需要合併單元格&需要合併單元格。

    合併效果2: 龍泉十小 三年級二班 小強

    Excel公式=需要合併單元格&"隔斷符號(空格、|、,等)"&需要合併單元格&"隔斷符號(空格、|、,等)"&需要合併單元格

  • 2 # 樂享所知

    方法大致有兩種:公式法和VBA

    公式法:

    公式大致有4種:

    用連線符號“&”進行合併,當單元格數量較多時不合適,5個一下可以考慮用此法;

    使用CONCATENATE 函式進行合併,單元格區域不連續,數量較多時也不合適!

    使用PHONETIC 函式進行合併,單元格區域可以連續,所以數量較多可以使用此公式進行合併。

    新版本Excel增加一個函式CONCAT,可以彌補CONCATENATE 函式的不足,可以使用此函式進行合併。

    前面三個方法已經有人講解了,而且講得非常好,這裡不再贅述,看一下公式4的使用即可:

    VBA:

    這裡重點介紹VBA方法,使用VBA可以彌補系統自帶函式的不足,下面給出的VBA程式碼不但可以將多個單元格的內容合併到一個單元格上,還能夠增加前後綴和分隔符,下面來看一下具體的演示:

    不增加前後綴:增加前後綴:程式碼:

    Sub 合併多個單元格內容到一個單元格()

    Dim tar, rng As Range

    Dim decoration, separator$, flag%

    On Error GoTo Error

    decoration = InputBox("請輸入修飾符(前後綴):", "輸入修飾符(前後綴):", "")

    separator = InputBox("請輸入分隔符", "輸入分隔符", "")

    flag = InputBox("請判斷是要加字首還是加字尾?", "-1:字首 0:前後綴 1:字尾", 0)

    Set tar = Application.InputBox(prompt:="請選擇存放結果的單元格:", Title:="選擇存放結果的單元格:", Type:=8)

    For Each rng In Selection

    If rng.Value <> "" Then

    If flag = -1 Then

    tar.Value = tar.Value & decoration & rng.Value & separator

    ElseIf flag = 0 Then

    tar.Value = tar.Value & decoration & rng.Value & decoration & separator

    Else

    tar.Value = tar.Value & rng.Value & decoration & separator

    End If

    Else

    End If

    Next

    If decoration = """ Then

    tar.Value = decoration & decoration & Left(tar.Value, Len(tar.Value) - 1)

    ElseIf decoration <> """ Then

    tar.Value = Left(tar.Value, Len(tar.Value) - 1)

    End If

    Error:

    Exit Sub "出錯時推出程式

    End Sub

  • 中秋節和大豐收的關聯?
  • 怎樣和男友拉近關係?