- 帖子
- 17
- 主題
- 0
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Hsinchu
- 註冊時間
- 2013-9-5
- 最後登錄
- 2024-7-23
|
4#
發表於 2013-10-15 16:19
| 只看該作者
回復 3# tracy1991621
1.原始資料存於sheet1 a1~b2 如你所示範例
2.將每次更新後資料轉存於Sheet2
Sub test()
Sheets("sheet1").Range("A2:B2").Copy ' copy 位置 :修改點
On Error Resume Next
Dim myClms As Range
Dim myRng As Range
Set myClms = Sheets("Sheet2").Columns("A:A") '任意的欄範圍
With myClms
Set myRng = .Find(What:="*", After:=.Cells(1), _
LookIn:=xlFormulas, Searchorder:=xlByRows, _
SearchDirection:=xlPrevious)
End With
myRng.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub |
|
