標題: 合併儲存格 [打印本頁]

---

作者: fish0226    時間: 2020-10-18 23:01     標題: 合併儲存格

新手試寫合併儲存格

一開始先用錄製如下

1. Sub combine()
   
2.     Range("A1:L1").Select
   
3.     With Selection
   
4.         .HorizontalAlignment = xlCenter
   
5.         .VerticalAlignment = xlCenter
   
6.         .WrapText = False
   
7.         .Orientation = 0
   
8.         .AddIndent = False
   
9.         .IndentLevel = 0
   
10.         .ShrinkToFit = False
    
11.         .ReadingOrder = xlContext
    
12.         .MergeCells = False
    
13.     End With
    
14.     Selection.Merge
    
15. End Sub

複製代碼

後來上網爬文發現可簡化為

1. Sub 合併儲存格()
   
2.     Range("A1:L1").Select
   
3.     With Selection.MergeCells = True
   
4.     End With
   
5.   End Sub

複製代碼

一樣的效果，為什麼錄製多了這麼多，多出的細項意思是什麼呢?

---

作者: ikboy    時間: 2020-10-19 09:40

錄製是電腦基於人手操作記錄下, 如 Select, 但寫是按人的思維做的, 前兩段你都已經看到是有分別, 那以很明顯目前人寫代碼可以繞過很多無謂的語句, 看下面還可以更短。

1. Sub 不同合併方法()
   
2.     Range("A1:L1").MergeCells = True
   
3. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)