[發問] 關於 串連字串 & 大量串連在同一儲存格

starry1314

請問如果要一次串連大量的儲存格在一個儲值格 &
舉例:實際會有數十個
A
B
C
D

輸出結果:ABCD

p212

回復 1# starry1314
如果儲存格內容皆為文字，可用
PHONETIC(儲存格範圍)
請參考！

starry1314

回復 2# p212


    太感謝了~都忘了以前用過這個函數！！！

starry1314

回復 2# p212



EX:   A1=台中  A2=大禮 A3=草屯
        B2公式(=A1&A2)=台中大禮
        C3公式(=A1&A3)=台中草屯

請問有什麼方法可大量串連公式顯示出來的字串

讓D1 可顯示出來 台中大禮 台中草屯

Hsieh

回復 4# starry1314
PHONETIC函數只能用在文字，儲存格內容為公式、數值皆無法使用
而內建字串函數並無處理類似大範圍的串連函數
必須以VBA輔助方可達成
若不使用VBA那麼以你所舉例子，只要將B2:C3儲存格複製，選擇性貼上/值，然後用PHONETIC函數即可
D1=PHONETIC(B2:C3)

另提供基本操作複製貼上動畫供您參考

下載 (187.89 KB)

2015-4-24 16:26

starry1314

回復 5# Hsieh


    那請問你知道如何寫法嗎?或是有什麼方向嗎?

因為需要處理的數量每天都會有近千筆,所以一直重複貼上值會較繁瑣,
當然在沒有辦法之前只能先這樣操作了

vanguarx

從文字字串中抽選注音標示 (Furigana) 字元。

如果儲存格 C4 包含 "   " 而儲存格 B7 包含 "   "，則以下為 True：

=PHONETIC(C4) equals "      "

=PHONETIC(B7) equals "     "


--------------------------------------------------------
真奇怪，這個函數的說明怎麼看都不是用在這種結合的目的上..

但我實際去操作，的確可以達到 樓主的目的....

starry1314

從文字字串中抽選注音標示 (Furigana) 字元。

如果儲存格 C4 包含 "   " 而儲存格 B7 包含 "   "，則以下 ...
vanguarx 發表於 2015-4-24 17:00

    請問可以有較詳細的說明嗎??因我操作時一直產生錯誤

Hsieh

回復 6# starry1314
VBA寫個自訂函數增益集來解決大範圍儲存格內容
將檔案解壓縮到OFFICE增益集目錄
C:\Users\[Username]\AppData\Roaming\Microsoft\AddIns
載入ConnectStr.xla增益集
就能在電腦中使用該函數

ConnectStr.zip (8.82 KB)

下載次數: 4

2015-4-24 23:44

1. Function ConnectStr(Rng As Range, dot As String) 'Rng為連儲存格範圍，dot為連結符號
   
2. Dim Ay(), i&, s&
   
3. ar = Rng.Value
   
4. For i = 1 To UBound(ar, 1)
   
5. For Each a In Application.Transpose(Application.Index(ar, i))
   
6.    If a <> "" Then
   
7.       mystr = IIf(mystr = "", a, mystr & a & dot)
   
8.    End If
   
9. Next
   
10.    ReDim Preserve Ay(s)
    
11.    Ay(s) = mystr
    
12.    mystr = ""
    
13.    s = s + 1
    
14. Next
    
15. ConnectStr = Join(Ay, dot)
    
16. End Function

複製代碼

starry1314

回復 9# Hsieh


辛苦了~還專門弄一個檔案出來！明天上班時再來測試囉～

謝謝囉～另想請問要學好ＶＢＡ　有什麼建議的基礎書籍可介紹呢？