excel怎麼把多列內容合并到一列

來源:互聯網
上載者:User

   先看一下未經處理資料,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列就輸出了我們想要的內容。

  注意:

  只需要更改代碼中加標註的原始地區列標和行號及輸出結果位置的第一個儲存格就可以應用到讀者自己實際的工作表中去了。

        :更多精彩教程請關注三聯電腦教程欄目,三聯電腦辦公群:189034526歡迎你的加入

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。