p212

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2025-1-2

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-20 11:09 | 只看該作者

組合字串加入空白字元區隔

問題描述如圖示，敬請版友們指教，謝謝！

Fig_1.JPG (74.54 KB)

組合字串加入空白區隔.zip (4.36 KB)

樓主熱帖

Bodhidharma

中學生 Rank: 2

帖子: 186
主題: 6
精華: 0
積分: 218
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-11-12
最後登錄: 2014-4-15

2^#

發表於 2013-5-20 12:46 | 只看該作者

本帖最後由 Bodhidharma 於 2013-5-20 12:48 編輯

回復 1# p212

多字串結合好像是phonetic函數
但是phonetic函數又不能輸入公式，所以沒辦法使用像是
{phonetic(1:1&" ")} 之類的公式
所以大概得用輔助欄列=A1&" "，下拉右拉
再選擇性貼上→值
然後再用phonetic連起來

我也不知道有沒有更好的方式
大概得寫VBA吧

組合字串加入空白區隔_sol.rar (4.32 KB)

TOP

zz5151353

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 206
主題: 3
精華: 0
積分: 218
點名: 0
作業系統: WIN10
軟體版本: OFFICE 365
閱讀權限: 100
性別: 男
來自: 台灣台北
註冊時間: 2010-5-15
最後登錄: 2023-6-18

3^#

發表於 2013-5-24 22:04 | 只看該作者

問題描述如圖示，敬請版友們指教，謝謝！
p212 發表於 2013-5-20 11:09

請參考一下

組合字串加入空白區隔.rar (8.85 KB)

300 字節以內
不支持自定義 Discuz! 代碼

TOP

aer

中學生 Rank: 2

帖子: 193
主題: 16
精華: 0
積分: 239
點名: 253
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2025-10-25

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

4^#

發表於 2013-5-25 09:35 | 只看該作者

請參考一下
zz5151353 發表於 2013-5-24 22:04

版主，請問您是如何做的?為什麼我照您的方法打，可是都會出現 #NAME? 呢？謝謝

TOP

Bodhidharma

中學生 Rank: 2

帖子: 186
主題: 6
精華: 0
積分: 218
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-11-12
最後登錄: 2014-4-15

5^#

發表於 2013-5-25 09:46 | 只看該作者

回復 4# aer

耶…他寫了一個簡單的程式
可以到開發人員→Visual Basic→模組查看

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

6^#

發表於 2013-5-25 17:27 | 只看該作者

利用FUNCTION自訂函數，以分隔符號連接文字串，可能較簡單便利，也較具彈性！

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

7^#

發表於 2013-6-4 00:29 | 只看該作者

Function CONTEXT(inprng As Range, Optional delimiter As String, Optional row1st As Boolean) As String
'delimiter Optional. String character used to separate the substrings in the returned string.
'If omitted, a zero-length string (""), all items in the list are concatenated with no delimiters.
'row1st Optional. Boolean from Row to Column. If omitted, from column to row
Dim RowN As Double
Dim ColN%, i%
Dim TmpAr() As Variant
RowN = IIf(inprng.Rows.Count < 16384, inprng.Rows.Count, 16384)
ColN = inprng.Columns.Count
Select Case 0
Case RowN + ColN - 2
CONTEXT = inprng
Case RowN - 1
CONTEXT = Join(Application.Transpose(Application.Transpose(inprng)), delimiter)
Case ColN - 1
CONTEXT = Join(Application.Transpose(inprng), delimiter)
Case Else
If row1st = True Then
ReDim TmpAr(1 To RowN)
For i = 1 To RowN
TmpAr(i) = Join(Application.Transpose(Application.Index(Application.Transpose(inprng), , i)), delimiter)
Next i
CONTEXT = Join(TmpAr, delimiter)
Else
ReDim TmpAr(1 To ColN)
For i = 1 To ColN
TmpAr(i) = Join(Application.Transpose(Application.Index(inprng, , i)), delimiter)
Next i
CONTEXT = Join(TmpAr, delimiter)
End If
End Select
End Function