- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
Sub TEST()
Dim xAddress$
xAddress = "A3:" & [Sheet3!F3]
With Sheets("Sheet1")
.Range(.[F1], .[A65536].End(xlUp)(2)).Offset(2, 0).ClearContents '清除原有資料
.Range(xAddress) = Sheets("Sheet2").Range(xAddress).Value
End With
End Sub
================= |
|
發表於 2019-6-3 15:32
| 