av8d

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-2-14 15:13 | 只看該作者

[發問] 四欄合併成一欄

本帖最後由 av8d 於 2023-2-14 15:28 編輯

四欄合併成一欄.rar (7.14 KB)

因為四欄隨機會有空值，如果用最簡單的&","&做連結就會多出許多,
請問有類似的函數可以解決該問題嗎？謝謝前輩們。

補充：附件中的合併欄裡的電話1234是方便填寫，實際是該列的電話數字。

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

2^#

發表於 2023-2-14 16:39 | 只看該作者

回復 1# av8d

謝謝前輩發表此主題與範例
後學也想學公式函數的方式,後學提供學習VBA的解決方案,請前輩試試看

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Arr, N&, i&, j&
Arr = Range([D1], Cells(ActiveSheet.UsedRange.Rows.Count, "A"))
For i = 2 To UBound(Arr)
N = N + 1: Arr(N, 1) = ""
For j = 1 To UBound(Arr, 2)
   If Trim(Arr(i, j)) <> "" Then
      If Arr(N, 1) = "" Then
         Arr(N, 1) = "'" & Trim(Arr(i, j))
         Else
            Arr(N, 1) = Arr(N, 1) & "," & Trim(Arr(i, j))
      End If
   End If
Next
Next
[E2].Resize(N, 1) = Arr
Set Arr = Nothing
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

av8d

大學生 Rank: 4

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

3^#

發表於 2023-2-14 17:56 | 只看該作者

回復 2# Andy2483

謝謝前輩透過VBA的字典實現這難解的任務，非常好用，受益良多。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

4^#

發表於 2023-2-14 19:21 | 只看該作者

回復 3# av8d

可以用 TEXTJOIN
若版本沒有TEXTJOIN, 只有四個欄位, 用 & 連接也可以
=SUBSTITUTE(TRIM(A2&" "&B2&" "&C2&" "&D2)," ",",")

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

5^#

發表於 2023-2-15 07:38 | 只看該作者

回復 4# 准提部林

謝謝前輩
此範例學習到 TRIM(),SUBSTITUTE()
1.TRIM()會將頭尾的空白字元除去
2.TRIM()會將字串內的連續空白字元收斂剩下一個空白字元
3.SUBSTITUTE()做字元的置換

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

6^#

發表於 2023-2-15 08:08 | 只看該作者

本帖最後由 Andy2483 於 2023-2-15 08:11 編輯

回復 3# av8d

謝謝前輩回復
後學今天複習了一下並作心得註解,請前輩參考

Option Explicit
Sub TEST()
Dim Arr, N&, i&, j&
'↑宣告變數:Arr是通用型變數,(N,i,j)是長整數變數
Arr = Range([D1], Cells(ActiveSheet.UsedRange.Rows.Count, "A"))
'↑令Arr這通用型變數是二維陣列,以現表[D1]到A欄/使用列儲存格,這方正範圍儲存格值倒入
'PS:使用列:已使用儲存格擴展為最小方正範圍儲存格的列數
For i = 2 To UBound(Arr)
'↑設順迴圈!i從2到 Arr陣列縱向最大索引列號數
N = N + 1: Arr(N, 1) = ""
'↑令N這長整數變數累加 1 :令N變數列第1欄Arr陣列值是空字元
For j = 1 To UBound(Arr, 2)
'↑設順迴圈!j從2到 Arr陣列橫向最大索引欄號數
   If Trim(Arr(i, j)) <> "" Then
   '↑如果i迴圈列第j迴圈欄Arr陣列值去頭尾空白字元後不是空字元 ??
      If Arr(N, 1) = "" Then
      '↑如果N變數列第1迴圈欄Arr陣列值是空字元??
         Arr(N, 1) = "'" & Trim(Arr(i, j))
         '↑令N變數列第1迴圈欄Arr陣列值是單引號,
         '連接i迴圈列第j迴圈欄Arr陣列值去頭尾空白字元的新字串
         Else
            Arr(N, 1) = Arr(N, 1) & "," & Trim(Arr(i, j))
            '↑否則令N變數列第1迴圈欄Arr陣列值是自身,
            '連接","符號,再連接i迴圈列第j迴圈欄Arr陣列值去頭尾空白字元的新字串
      End If
   End If
Next
Next
[E2].Resize(N, 1) = Arr
'↑令[E2]擴展向下N變數列,向右不擴展的範圍儲存格值,以Arr陣列值帶入
Set Arr = Nothing
'↑令釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

大學生 Rank: 4

帖子: 1363
主題: 4
精華: 0
積分: 1373
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-4-25

熱烈參與勳章

7^#

發表於 2023-2-16 11:50 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590724788

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP