xbin2sswapp的部落格

EXCEL VBA．設定〔單列．多欄〕的合併格〔自動換列〕後的列高
　　　　　　　　　　　　　　　　　　　　　　　　　＜．准提部林．＞
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
■基本需求：
　１．同一列中有多個以〔欄〕為單位合併格。
　２．每一合併格的〔欄數〕不固定。
　３．限合併格為〔單列．多欄〕。
　
■程式碼：詳細註解請參閱範例檔
　Sub 調整列高A()
　Dim i&, j&, Jm&, k&, Km, y&
　Dim xR As Range, xMrg As Range, xUrg As Range
　y = [A65536].End(xlUp).Row
　Application.ScreenUpdating = False
　For i = 4 To y
　For j = 1 To 11
　　　Set xR = Cells(i, j): 　Set xMrg = xR.MergeArea
　　　If xR.MergeCells = False Or xR = "" Then GoTo 指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯
　　　For k = 1 To xMrg.Columns.Count
　　　　　Km = Km + xMrg.Columns(k).ColumnWidth
　　　Next
　　　Jm = Jm + 1
　　　Set xUrg = Range("N" & i).Cells(1, Jm)
　　　xMrg.WrapText = True:  　xMrg.Copy xUrg
　　　xUrg.UnMerge:  　xUrg.ColumnWidth = Km - 1: 　Km = 0
　　　xUrg.Rows.AutoFit
　指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯: Next j
　　　Rows(i).RowHeight = Rows(i).RowHeight: Jm = 0
　Next i
　[N1].Resize(1, 11).EntireColumn.Delete
　End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜��例檔＞下載：
檔案名稱：20131222a01(合併欄自動列高).rar
下載位址：http://www.funp.net/791412
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜同步發表網頁＞
http://blog.xuite.net/smile1000mile/blog/188131632
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－