close

4111

Excel如何用VBA或函數將多個儲存格內容合併成一個儲存格?

如果有幾十個、幾百個,其至可能幾千個數量的儲存格依照巨集跑出來的數量會有變化,如何把全部的儲存格內容串接起來放進一個儲存格呢?

例如:

range("A1")=range("B1") & range("B2")一直到B1000。

image

方法1.使用函數(2019/365)

點取A1儲存格輸入公式:「=TEXTJOIN(,,B1:B1000)」。

image

方法2.使用VBA(2019/365)

按ALT+F11鍵開啟VBA視窗。

點取「插入 > 模組」指令,新增一張空白模組表。

輸入如下程序:

Sub 巨集1()

    Range("A1") = "=TEXTJOIN(,,RC[1]:R[999]C[1])"     設定合併R1C1向下999列1欄的內容。

    Columns("A:A").EntireColumn.AutoFit              設定A欄為最適寬度。

End Sub

image


arrow
arrow
    文章標籤
    VBA 函數 TEXTJOIN
    全站熱搜
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()