----Excel編程碰到的第一個問題是表頭。有時表頭的形式比較復雜，需要橫向或縱向合並單元格。請放心，只要沒有斜槓，Excel都能應付得了。
----例如合並A2~A5這4個單元格，你錄制的宏代碼會是這樣：
Range("A2:A5").Select
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlBottom
.WrapText=False
.Orientation=0
.AddIndent=False
.ShrinkToFit=False
.MergeCells=False
EndWith
Selection.Merge
----而自己編程只要一句Range.(“A2:A5”).mergecells=True就可以解決問題。
----表頭形式定了，再就是表頭的內容。如果單元格中的文本長度超過了列寬，往往只能顯示部分內容，行尾那一格的內容則會“越境”進入右邊那個空白單元格，很不美觀。這個問題可以通過在程序中設置列寬加以解決。
----Columns(14).columnwidth=12‘設置第14列列寬為12（缺省列寬為8.38）
----如果你不願意勞神去逐列估計實際所需的列寬，干脆來一行
----Columns(“a:i”).autofit‘a到i列自動調整列寬
----讓Excel隨機應變吧。
----但也許你不喜歡這種方法，認為表頭撐大了列寬，弄得浏覽一張小表格還得向右滾動，太不方便了。要是能保持默認列寬，讓文本自動換行就好了。沒問題，Excel包你滿意。
----Rows(3).WrapText=True‘讓第三行各單元格中的文本自動換行
----不過你最好再加一句Rows(3).VerticalAlignment=xlTop讓表頭自動向上對齊，這樣比較符合習慣。
----你還可以給表頭打上底色，讓你的讀者不至於看了打哈欠。
----Rows(2).Interior.ColorIndex=5'設置第2行底色為藍色
----再給表格的標題上色，這樣更醒目一點。
----Rows(1).Font.ColorIndex=4
----表頭完成後該填數據了，一個一個地填實在是太慢了，如果你的數據是存放在一個二維數組中，那問題就簡單多了。
DimData(3,4)
…………‘數據處理
Range(“a2:d4”).Value=Data
----這樣可以一次填入一個表的所有數據，夠快了吧！不過提醒一句，Range對象大小最好與數組匹配，小了無法顯示所有數據，大了則會在空白單元格只填入“N/A”表示沒有取得數據。
----如果需要在結果中顯示多個同樣規格的數據表，想在Range對象中加入循環變量，這也好辦。
Dimcell11,cell2
DimData(3,4)
…………
ForI=1to40
…………‘數據處理
Setcell1=Worksheets("Sheet1").Cells(5*I-4,1)
Setcell2=Worksheets("Sheet1").Cells(5*I-2,4)
Worksheets("Sheet1").Range(cell1,cell2).value=Data
NextI
----表格填完了，現在該打表格線了，以下幾條語句可以滿足你的要求：
WithWorksheets("Sheet1").Range(cell1,cell2).borders
.LineStyle=xlContinuous
.weight=xlThin
EndWith
----好了，關於Excel的VB編程今天就講到這兒吧。
->
