dodocho

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-28 23:35 | 只看該作者

儲存格合併

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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-4-29 00:06 | 只看該作者

回復 1# dodocho

學海無涯_不恥下問

TOP

dodocho

中學生 Rank: 2

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

3^#

發表於 2011-4-29 00:34 | 只看該作者

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

TOP

ANGELA

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

4^#

發表於 2011-4-29 08:37 | 只看該作者

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2011-4-29 10:26 | 只看該作者

本帖最後由 mark15jill 於 2011-4-29 10:32 編輯

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

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

字串組合.rar (12.82 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-4-29 11:00 | 只看該作者

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

TOP

dodocho

中學生 Rank: 2

帖子: 17
主題: 5
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2012-6-27

7^#

發表於 2011-4-29 22:13 | 只看該作者

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

TOP

ann

中學生 Rank: 2

帖子: 31
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: WIN7
軟體版本: OFFICE2007
閱讀權限: 20
性別: 女
註冊時間: 2011-3-29
最後登錄: 2014-4-10

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2011-5-2 16:28 | 只看該作者

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

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

Ann

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2011-5-2 17:25 | 只看該作者

本帖最後由 mark15jill 於 2011-5-2 17:29 編輯

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)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-5-2 19:33 | 只看該作者

回復 8# ann

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

Private Sub CommandButton1_Click() '合併
Dim ar()
Application.ScreenUpdating = False
With Selection
adr = .Address
For Each a In .Cells
ReDim Preserve ar(s)
ar(s) = a
s = s + 1
Next
.ClearContents
For Each a In .Cells
a.Value = ar(i)
i = i + 1
Next
.Cells(1, 1).Value = Join(ar)
With Sheets.Add
Set ns = ActiveSheet
.Range(adr).Merge
.Range(adr).Copy
End With
.PasteSpecial Paste:=xlPasteFormats
Application.DisplayAlerts = False
ns.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click() '分解
With Selection
r = 1
mystr = .Cells(1)
.UnMerge
.Cells(1) = Split(mystr, " ")(0)
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP