Board logo

標題: [發問] 如何在相對的位置改為指定的數值 [打印本頁]
作者: cdkee    時間: 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的右邊
謝謝!
[attach]11058[/attach]
作者: oobird    時間: 2012-5-19 09:38

要能讓人看懂你的問題，才是有效的提問。
作者: register313    時間: 2012-5-19 11:42

回復 1# cdkee
  1. Sub aa()
  2. Ar = [A1].CurrentRegion
  3. [A1].AutoFilter Field:=2, Criteria1:="=9:15:000", Operator:=xlOr, Criteria2:="=13:30:000"
  4. For Each C In Range("C1:C" & [C65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
  5.   C.Offset(1, 0) = C
  6.   C.Offset(1, 4) = C.Offset(1, 4) + C.Offset(0, 4)
  7. Next
  8. Set Rng = [A1].CurrentRegion.SpecialCells(xlCellTypeVisible)
  9. Rng.Delete Shift:=xlUp
  10. [A1].CurrentRegion.Copy [J1]
  11. [A1].Resize(UBound(Ar), 8) = Ar
  12. End Sub
複製代碼
作者: cdkee    時間: 2012-5-19 13:55

回復 3# register313

太棒!再感謝register313大大教授!
作者: cdkee    時間: 2012-5-19 14:07

回復 2# oobird


    謝謝大大提醒，下次會再清楚提出問題。
作者: cdkee    時間: 2012-5-19 15:05

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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)