本例主要介紹如何在excel中將多列單元格的內容合併到一列,並放在一個單元格中用逗號分開。
工具/原料
excel
操作過程:
先看一下原始資料,A到E列為單元格資料,需要將每行的非空單元格內容合併到F列儲存在一個單元格中,並且用逗號分開。
選擇【開發工具】-【插入】- 選擇【ActiveX控制元件】中的按鈕。
用滑鼠在excel表格中畫出一個按鈕。
雙擊該按鈕,進入編輯程式碼模式。
貼上下列程式碼:
Private Sub CommandButton1_Click()
Dim n, i, j, m
Dim arr, brr()
n = [a65535].End(xlUp).Row
ReDim brr(1 To n)
arr = Range("A1:E" & n) '其中A1:EN表示的是原始資料區域
For i = 1 To n
For j = 1 To 5 '5表示A到E列是5列
If arr(i, j) <> "" Then
brr(i) = brr(i) & "," & arr(i, j)
End If
Next j
brr(i) = Mid(brr(i), 2, 99)
Next i
[F1].Resize(n, 1) = Application.Transpose(brr) 'F1表示從F1開始輸出結果
End Sub
返回excel工作表介面,點選【開發工具】-【編輯模式】按鈕退出編輯模式。
點選剛才插入的命令按鈕,F列就輸出了我們想要的內容。
注意:
只需要更改程式碼中加標註的原始區域列標和行號及輸出結果位置的第一個單元格就可以應用到讀者自己實際的工作表中去了。
注意事項
如果您覺得此經驗有用,可以點選本頁面右上方的【大拇指】圖案和【收藏按鈕】或者右下方的【分享】按鈕,也可以點選本注意事項下方的【收藏】按鈕。