返回列表 上一主題 發帖

合併儲存格

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-3 10:53 | 只看該作者

合併儲存格

請教各位先進並指導
  當$q$5="A"時
   Range 從 d7:d146
   儲存格 d7:d10 --合併  d11:d14  --合併  d15:d18 --合併  以此類推至 d146
否則  儲存格 d7:d8 --合併  d9:d10 --合併  d11:d12 --合併 以此類推至 d146
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-8-3 16:24 | 只看該作者
回復 1# jim
  1. Sub ex()
  2. k = IIf([Q5] = "A", 4, 2)
  3. [D7:D146].UnMerge
  4. r = 7
  5. Do Until r >= 146
  6. Cells(r, 4).Resize(k, 1).Merge
  7. r = r + k
  8. Loop
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
3#
發表於 2012-8-3 18:46 | 只看該作者
回復 2# Hsieh
多謝幫忙 程式可執行 但是出現方塊 ( 你所選的範圍內包含有多個資料值-----)
必須按確定 , 且一次才能執行一格 ,是否有辦法讓方塊不出現 直接確定並一次執行完畢

TOP

jim

帖子
87 
主題
26 
精華
0 
積分
119 
點名
0  
作業系統
win 7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2010-5-7 
最後登錄
2020-9-28 
4#
發表於 2012-8-4 06:44 | 只看該作者
回復 3# jim
已解決 我把如下語法加上
Application.ScreenUpdating = False
Application.DisplayAlerts = False

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題