- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
8#
發表於 2015-10-26 09:34
| 只看該作者
本帖最後由 lpk187 於 2015-10-26 09:42 編輯
回復 7# v03586
Dim ARng As Range, BRng As Range 這裡已經宣告為Range物件
所以可以把此物件的屬性拿出來用所以只要把
BRng.Offset(, 1) = ARng.Offset(, 1) 'C欄
BRng.Offset(, 2) = ARng.Offset(, 2) 'D欄
BRng.Offset(, 4) = ARng.Offset(, 4) 'F欄
BRng.Offset(, 5) = ARng.Offset(, 5) 'G欄
改成- With BRng.Offset(, 1)
- .Value = ARng.Offset(, 1) 'C欄
- .ColumnWidth = ARng.Offset(, 1).ColumnWidth
- .RowHeight = ARng.Offset(, 1).RowHeight
- End With
- With BRng.Offset(, 2)
- .Value = ARng.Offset(, 2) 'D欄
- .ColumnWidth = ARng.Offset(, 2).ColumnWidth
- End With
- With BRng.Offset(, 4)
- .Value = ARng.Offset(, 4) 'F欄
- .ColumnWidth = ARng.Offset(, 4).ColumnWidth
- End With
- With BRng.Offset(, 5)
- .Value = ARng.Offset(, 5) 'G欄
- .ColumnWidth = ARng.Offset(, 5).ColumnWidth
- End With
複製代碼 就可以。
詳細的屬性請自行參考VBE的Range 說明
不過,我覺得 單一儲存格複製欄高列寛的,好像沒什麼意義! 前面的儲存格一定會被後面的修改掉的 |
|