儲存格合併

dodocho

各位大大好:
我想請問在EXCEL裡面
有什麼方法可以讓儲存格合併時
2個儲存格的資料都在
因為正常情況下儲存格合併時
只會留下前面哪一格的資料
另一格資料會不見??
麻煩一下    謝謝

Hsieh

回復 8# ann


    要第一個儲存格顯示所有值，第2個儲存格以後的值保留?

下載 (141.64 KB)

2011-5-2 19:30

1. Private Sub CommandButton1_Click() '合併
   
2. Dim ar()
   
3. Application.ScreenUpdating = False
   
4. With Selection
   
5. adr = .Address
   
6. For Each a In .Cells
   
7. ReDim Preserve ar(s)
   
8. ar(s) = a
   
9. s = s + 1
   
10. Next
    
11. .ClearContents
    
12. For Each a In .Cells
    
13. a.Value = ar(i)
    
14. i = i + 1
    
15. Next
    
16. .Cells(1, 1).Value = Join(ar)
    
17. With Sheets.Add
    
18. Set ns = ActiveSheet
    
19. .Range(adr).Merge
    
20. .Range(adr).Copy
    
21. End With
    
22. .PasteSpecial Paste:=xlPasteFormats
    
23. Application.DisplayAlerts = False
    
24. ns.Delete
    
25. Application.DisplayAlerts = True
    
26. End With
    
27. Application.ScreenUpdating = True
    
28. End Sub
    
29. 
    
30. Private Sub CommandButton2_Click() '分解
    
31. With Selection
    
32. r = 1
    
33. mystr = .Cells(1)
    
34. .UnMerge
    
35. .Cells(1) = Split(mystr, " ")(0)
    
36. End With
    
37. End Sub

複製代碼

mark15jill

mark15jill 大大你好
對不起,本人用的是2003版本
所以無法開啟
請問可以給我程式碼嗎??
謝謝
dodocho 發表於 2011-4-29 22:13

抱歉 沒注意到這帖的訊息.....
用2007用習慣 常常會忘記要轉成其他版本格式..

程式碼如下(另有附帶檔案 2003格式的)  
如有問題 再回復文章...

Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+e

    Range("A3:b3").Select
    ActiveCell.FormulaR1C1 = Range("A1") & Range("B1")
   
    Range("A2:B2").Select '選擇 A2到B2 儲存格
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("A2").Select
    ActiveCell.FormulaR1C1 = Range("A3")
   
    Range("A3").Select
    ActiveCell.FormulaR1C1 = ""



    Range("C1:D1").Select

    Range("C2").Select
    ActiveCell.FormulaR1C1 = Range("C1") & Range("D1")


End Sub




字串組合-2003版本.rar (8.75 KB)

下載次數: 2

2011-5-2 17:24

ann

操作中遇到內建功能無提供的作業
常會須要用到程式碼輔助
oobird 發表於 2011-4-29 11:00

  不知超級版主-合併儲存格且保留所有儲存格內容的功能如何做到?
  可以分享程式碼嗎?

dodocho

mark15jill 大大你好
對不起,本人用的是2003版本
所以無法開啟
請問可以給我程式碼嗎??
謝謝

oobird

操作中遇到內建功能無提供的作業
常會須要用到程式碼輔助

下載 (25.01 KB)

2011-4-29 11:00

mark15jill

因不曉得說樓主是要大量還是單筆 所以 做了一筆的資料
看樓主是要哪種格式
使用方法 巨集快捷預設 ctrl + e 請自行修改

1.在A1 B1 輸入想要的字後 顯示在 A1B1..
2.在C1 D1 輸入想要的值後 顯示在 C1..
如果要多筆的話  程式碼可能還得修改..


字串組合.rar (12.82 KB)

字串組合
下載次數: 11

2011-4-29 10:25

ANGELA

合併格只能顯示第一個儲存格的資料.第二個儲存格的資料可保存不能顯示.

dodocho

大大對不起
我沒講清楚
我希望A1儲存格裡面1
        A2儲存格裡面2
A1A2合併成一個儲存格時
裡面顯示12
舉個例A1儲存格裡面   "生日"
        A2儲存格裡面2  "快樂"
合併後變成.生日快樂而不是只出現生日

Hsieh

回復 1# dodocho


   

下載 (175.96 KB)

2011-4-29 00:06