關於巨集程式修改問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 關於巨集程式修改問題

返回列表下一主題上一主題發帖

[發問] 關於巨集程式修改問題

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2012-11-13 09:20 | 顯示全部帖子

回復 1# 我是瑄

Sub Test()
With Sheets("Sheet1")
' .Range("A2:E2").Copy Sheets("Sheet2").[F2]
.Range("B1:B5").Copy Sheets("Sheet2").[G2]
End With
End Sub
Sub Test2()
With Sheets("Sheet1")
' Sheets("Sheet2").[F5].Resize(, 5) = .Range("A5:E5").Value
' Sheets("Sheet2").[F5].Resize(, 5) = .[A5:E5].Value
Sheets("Sheet2").[F5].Resize(5, 1) = .[B1:B5].Value
End With
End Sub

複製代碼

Test() 會連同背景一併複製過來.

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

返回列表下一主題上一主題