EXCEL 問題

💻 軟件台程式編寫及設計

[匿名]

2013-05-31 1:26 am

我想問在EXCEL儲存格內的文字如有顏色怎樣可以合併.
如:A1 陳大文(紅色字)
B1 陳二文(藍色字)
我想在C1合併2儲存格但要出現陳大文陳二文...但要有原本頻色字.可以嗎,請指教.

更新1:

不是呀,我有200個儲存格,想一次合併,a1(有200個姓名是紅色字)..b1(有200個姓名是藍色字)可以做到嗎.

更新2:

excel 公式是 =a1&b1

更新3:

問題ﱧ應該可解決,但我的儲存格由A1至A100. B1至B100. 怎樣可以由C1=A1&B1 C2=A2&B2 直到100個儲存格 VBA怎樣改寫,有勞指教.

更新4:

基本已解決,但我有100不同的儲存格 a1=陳大文 b1=陳二文 a2=陳三文 a2=陳四文每個格都有不同姓名,可否合併出現. 還有一個是出來後可否分上下,則..陳大文陳二文有勞指教....

回答 (2)

2013-06-05 1:56 am

✔ 最佳答案

用公式我唔識做，用vba 幫下手啦！先將要處理的工作表作備份才試，以防萬一。打開工作表，按 Alt + F11 , 打開 vba 視窗Double-click 右手邊的 ThisWorkbook , 將以下的 VBA 複製到左邊空白的地方， ****************************************************Sub PIAO_colour()x = Len(Range("a1"))Y = Range("b65536").End(xlUp).Row Range("C1") = Range("A1") & " " & Range("B1")Range("C1").SelectSelection.AutoFill Destination:=Range("C1:C" & Y)DoWith Selection .Font.ColorIndex = 5 .Characters(Start:=1, Length:=x).Font.ColorIndex = 3End With ActiveCell.Offset(1, 0).Select Loop Until IsEmpty(ActiveCell) End Sub****************************************************** 將 CURSOR放在 VBA 中任意一點，按 “Play” ok

2013-06-05 17:20:42 補充：
Y = Range("b65536").End(xlUp).Row ----- 刪除這句

Range("C1") = Range("A1") & " " & Range("B1") ------ 若A1 & B1 中間沒有 space 則將這句改成 Range("C1") = Range("A1") & Range("B1")

Selection.AutoFill Destination:=Range("C1:C" & Y) ---------- 將這句改成

Selection.AutoFill Destination:=Range("C1:C100" )

2013-06-06 10:24:29 補充：
我的能力做不到,
黔驢之技, 技之止已

參考: 黔驢之技

👍 0 👎 0

用戶37935

2013-06-04 1:44 am

好簡單

你在c1度將a1同b1的字複制下來就可以了

簡單吧

2013-06-03 17:45:54 補充：
留左

先合併左個格再打字

參考: me, me

👍 0 👎 0

收錄日期: 2021-04-23 22:57:33
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20130530000051KK00171

檢視 Wayback Machine 備份