- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 41
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-2-16
               
|
4#
發表於 2012-4-19 00:02
| 只看該作者
回復 3# chen031695
內建文字函數無法結合陣列
先建立2個名稱
x公式
=OFFSET(工作表1!$A$1,,,COUNTA(工作表1!$A:$A),)
y公式
=SMALL(IF(x=FALSE,ROW(x),""),ROW(INDIRECT("A1:A"&COUNTIF(x,FALSE))))
使用自定義函數
一般模組- Function JoinIIF(Rng As Variant, dot As String) '結合陣列元素
- Dim Ar(), a As Variant
- For Each a In Rng
- ReDim Preserve Ar(s): Ar(s) = a: s = s + 1
- Next
- JoinIIF = Join(Ar, dot)
- End Function
儲存格公式=JoinIIF(y,",")
|
|
發表於 2012-4-18 14:45
| 
