EXCEL是在同一儲存格中的數字及文字問題

Question

順便請問您另一個頭痛的問題，如果您能回答那麼我再發問，請您跟我說一下。
同樣是在同一儲存格中的數字及文字問題
15、16、19是在一個儲存格中例如A1
150、300、450在另一個儲存格中例如B1
我能在C1將上面的數字合成
15地號150元16地號300元19地號450元
這樣嗎?
我的功力只合到這樣
15地號16地號19地號依序金額為150元300元450元
我用的公式下列(我的不在A1和B1儲存格，所以還包含其他。上面是舉例。)
=IF(ISERR(FIND(\"、\",B3,1)),IF(B3=\"\",\"\",(SUBSTITUTE(B3&(IF(C3=\"\",\"\",\"、\"&C3))&\"地號\",\"、\",\"地號\")&\"依序金額為\"&SUBSTITUTE(I3&\"元\",\"、\",\"元\"))),(SUBSTITUTE(B3&(IF(C3=\"\",\"\",\"、\"&C3))&\"地號\",\"、\",\"地號\")&\"依序金額為\"&SUBSTITUTE(I3&\"元\",\"、\",\"元\")))

Answer 1

小弟認為這要用自訂函數的方法比較簡便

1.選取下列程式碼並按右鍵複製
2.工具 e 巨集 e Visual Basic編輯器
3.跳出VB視窗後, 插入 e 模組
4.在空白的地方貼上複製的程式碼
5.關閉VB視窗
6.C1儲存格輸入: =EhStr(A1,B1)

Public Function EhStr(A1, A2 As Range)
If Len(A1) - Len(Replace(A1, "、", "")) <> Len(A2) - Len(Replace(A2, "、", "")) Then
EhStr = "兩字串個數不符": Exit Function
End If
EhVar1 = Split(A1, "、")
EhVar2 = Split(A2, "、")
For i = 0 To Len(A1) - Len(Replace(A1, "、", ""))
EhStr = EhStr & EhVar1(i) & "地號" & EhVar2(i) & "元"
Next i
End Function

2006-04-28 11:23:39 補充：
請問多了一個欄位，那麼顯示的結果為何??

如果顯示格式仍一樣的話：
=EhStr(B1,C1)　B1放地號，C1放元
=EhStr(A1,C1)　A1放地號，C1放元

公式=EhStr(A1,B1)中的A1,B1只是參照位址，可以改成任何一個儲存格

2006-04-28 13:05:41 補充：
試試
=EhStr(A1&"、"&B1,C1)

Answer 2

好利害!都可以用。只是有一些問題，第1就是不一定是3個。
所以只有a8350070的能使用。^^:
第2個是我要請教，如果我還要加上例如a1’b1是輸入地號，c1是元，我要如何增加!謝謝您因為這樣的程式非常好用，我希望能再增加一個儲存格位置。謝謝!

2006-04-28 12:05:07 補充：
多一個欄位會顯示"兩字串個數不符"
謝謝您!有問題我再請教，謝謝!

2006-04-28 12:07:49 補充：
老年人:謝謝您熱心回答，您的方法我也會加以利用，感謝您的回覆。

2006-04-28 13:35:40 補充：
我已經另外問一題了，請您來幫忙答一下
還有一個問題還需要請您來幫忙克服!
請到


http://tw.rd.yahoo.com/referurl/knowledge/click/my_question/*http://tw.knowledge.yahoo.com/question/?qid=1306042805043

Answer 3

妳可以試用下列公式:
C1=CONCATENATE(MID(A1,1,2),"地號",MID(B1,1,3),"元",MID(A1,4,2),"地號",MID(B1,5,3),"元",MID(A1,7,2),"地號",MID(B1,9,3),"元")