[發問] 如何在相對的位置改為指定的數值

本帖最後由 cdkee 於 2012-5-19 01:54 編輯

請教大大，在SHEET1左邊的數據中，如何將
1) 所有9:16:000 / 13:31:000右邊(C欄)的數值，改為9:15:000 / 13:30:000右邊(C欄)的數值
2) 所有9:16:000 / 13:31:000右邊(G欄)的數值，和9:15:000 / 13:30:000右邊(G欄)的數值總加
3) 將所有9:15:000和13:30:000整列刪除
4) 將改變後的數據顯示在SHEET1的右邊
謝謝!

TEST1.rar (131.19 KB)

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-5-19 09:38 | 只看該作者

要能讓人看懂你的問題，才是有效的提問。

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-5-19 11:42 | 只看該作者

回復 1# cdkee

Sub aa()
Ar = [A1].CurrentRegion
[A1].AutoFilter Field:=2, Criteria1:="=9:15:000", Operator:=xlOr, Criteria2:="=13:30:000"
For Each C In Range("C1:C" & [C65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
C.Offset(1, 0) = C
C.Offset(1, 4) = C.Offset(1, 4) + C.Offset(0, 4)
Next
Set Rng = [A1].CurrentRegion.SpecialCells(xlCellTypeVisible)
Rng.Delete Shift:=xlUp
[A1].CurrentRegion.Copy [J1]
[A1].Resize(UBound(Ar), 8) = Ar
End Sub