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

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

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-5-19 01:41 | 只看該作者

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

本帖最後由 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)

樓主熱帖

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

6^#

發表於 2012-5-19 15:05 | 只看該作者

本帖最後由 cdkee 於 2012-5-19 15:39 編輯

對不起，沒有問題，是我弄錯!再次謝謝大大!

test3.rar (521.02 KB)

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

5^#

發表於 2012-5-19 14:07 | 只看該作者

回復 2# oobird

謝謝大大提醒，下次會再清楚提出問題。

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

4^#

發表於 2012-5-19 13:55 | 只看該作者

回復 3# register313

太棒!再感謝register313大大教授!

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