- 帖子
- 2847
- 主題
- 10
- 精華
- 0
- 積分
- 2902
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-1-31
|
- Function QQString(QBase, QMark$, QBy%) As String
- Dim TT$, xR
- If Val(QBy) > 0 Then QBase = QBase
- For Each xR In QBase
- If xR <> "" Then TT = TT & QMark & xR
- Next
- QQString = Mid(TT, 2)
- End Function
公式：=QQString(A1:E5,"-",0)
=QQString(A1:E5,"-",1)
QMark（連接符號）．QBy=0（循列．由左而右＞由上而下）．QBy>0（循欄．由上而下＞由左而右） |
|
發表於 2013-5-25 17:27
| 