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

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

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

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

博士班 Rank: 6 Rank: 6

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

2^# 跳轉到 »

發表於 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() 會連同背景一併複製過來.

靜思自在 : 不要隨心所欲，要隨心教育自己。

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