宏：把excel中多個單元格的內(nèi)容合并到一個單元格_第1頁
宏：把excel中多個單元格的內(nèi)容合并到一個單元格_第2頁
宏：把excel中多個單元格的內(nèi)容合并到一個單元格_第3頁
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、【精品文檔】如有侵權(quán)，請聯(lián)系網(wǎng)站刪除，僅供學(xué)習(xí)與交流宏：把excel中多個單元格的內(nèi)容合并到一個單元格.精品文檔.把excel中多個單元格的內(nèi)容合并到一個單元格或許現(xiàn)在的你正為沒有找到一個方便快捷的方法將excel中多個單元格的內(nèi)容合并到一個單元格里而煩惱，沒關(guān)系，我下面介紹的這個方法可以輕松為你解決煩惱。用excel自帶的功能顯然是沒辦法輕松解決這個問題的，但是運(yùn)用excel提供的VBA宏編程功能，即可迎刃而解.閑話少說，馬上開始。一、 首先新建或打開一個excel文檔，然后按“ALT+F11”組合鍵，打開VBA窗口，按頂部菜單“插入模塊”插入一個模塊（模塊名稱可以自己修改），把下面代碼復(fù)制

2、進(jìn)去，如圖-1所示。（注意：此功能只對單個文檔有效，如果在其他的excel文檔使用此法要從新輸入下面代碼才可以使用）：Sub 合并行單元格內(nèi)容 ()Application.DisplayAlerts = FalseSet tt = Selection '賦值選定區(qū)域a = tt.Rows.Count '選區(qū)行數(shù)x = tt.Row '第一個格行號y = tt.Column '列號s = tt.Columns.Count - 1 '列數(shù)減1For j = x To x + a - 1 For i = 1 To s Cells(j, y) = Cells(j

3、, y) & Cells(j, y + i) Next Range(Cells(j, y), Cells(j, y + s).Merge '合并NextApplication.DisplayAlerts = TrueEnd SubSub 合并列單元格內(nèi)容 ()t = ""Set tt = Selectionx = tt.Row '第一個格行號y = tt.Column '列號For Each a In Selectiont = t & a.Valuea.Value = ""NextCells(x, y) = tSelection.MergeSelection.WrapText = True '自動換行End Sub圖-1二、 復(fù)制好后,關(guān)閉這個窗口,回到EXCEL,選擇你要合并內(nèi)容的單元格，再按AIT+F8調(diào)用程序,點(diǎn)執(zhí)行即可!過程如下面圖示：圖-2合并行單元格內(nèi)容圖-3合并列單元格內(nèi)容三、 輸出

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論