Excel VBA如何 快速取消合併儲存格_空格填入原合併值
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
回復 1# Andy2483
試試看
Sub 取消合併儲存格_空格填入原合併值_New()
Dim rnG As Range, T, ad$
T = Timer
For Each rnG In Cells.SpecialCells(2)
If rnG.MergeCells = True Then
ad = rnG.MergeArea.Address
With Range(ad)
.MergeCells = False
.Value = .Item(1)
End With
End If
Next
Cells.MergeCells = False '補取消 原合併格就無值的除存格
MsgBox "共耗時：" & Round(Timer - T, 3) & " 秒"
End Sub |
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
發表於 2020-8-18 12:15
| 