- 帖子
- 163
- 主題
- 1
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-5
- 最後登錄
- 2022-7-20
|
回復 1# clio
請參考- Sub SearchMerge()
- Dim cell As Range
- Dim arr()
- For Each cell In ActiveSheet.UsedRange
- If cell.MergeCells = True Then
- n = n + 1
- ReDim Preserve arr(1 To n)
- arr(n) = Replace(cell.Address, "$", "")
- End If
- Next cell
- If n <> "" Then MsgBox "共有下列 " & n & " 個合併儲存格：" & vbCr & Join(arr, vbTab)
- End Sub
|
|
發表於 2018-8-6 12:01
| 