Board logo

標題: 如何抽取同一格的日期再整合呢? [打印本頁]
作者: am0251    時間: 2011-8-30 15:40     標題: 如何抽取同一格的日期再整合呢?

本帖最後由 am0251 於 2011-8-30 16:35 編輯

[attach]7649[/attach]我有一個檔案SHEET1就是下載回來的資料,A行都是時間和日期,如何可以快速的把時間和日期分開呢?因為我需要把A行和B行的資料抽取到SHEET2,如A2是"21/6/2011 16:00" 而B2 是"18.82" 只要 "21/6/2011" & "18.82" 就好了,因為只要是同一日的話,B行的資料都一樣的,希望各位大大指點一下,謝謝~~!
作者: Hsieh    時間: 2011-8-30 18:58

回復 1# am0251
[attach]7650[/attach]
作者: am0251    時間: 2011-8-31 15:46

謝謝Hsieh大大的提點,我試一下錄下來,再用VBA寫一次!!
作者: am0251    時間: 2011-8-31 16:02

我試着錄下來,再寫成VBA,可是我錄下來之後再做一次,B行全都變成了"AM" , "PM"
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  6. '
  7.     Columns("A:A").Select
  8.     Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
  9.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
  10.         Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
  11.         :=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
  12. End Sub
複製代碼
可惜我能力有限,不懂簡化
作者: am0251    時間: 2011-8-31 17:41

我己從匯入的方面解決了,可是如A1的日期是"21/6/2011",但我想找下一日的日期"22/6/2011"的位置是"A?",該怎麼找呢?
作者: Hsieh    時間: 2011-8-31 18:45

回復 5# am0251

試試將B欄位加上欄位名稱候用進階篩選
作者: am0251    時間: 2011-9-1 15:16

謝謝Hsieh大大,可是"進階篩選"可能在這情況有點用不上,因為我是想找出A行的各日期中的第一個與右邊一格的資料,如A2至A5都是"2011/6/21",我就只想要A2:B2的資料,再復製到其他頁面!
作者: am0251    時間: 2011-9-7 16:31

本帖最後由 am0251 於 2011-9-7 17:27 編輯

簡單的說,我就是想在整行幾組相同的資料中找出每組中第一個出現的位置
作者: Hsieh    時間: 2011-9-7 23:02

本帖最後由 Hsieh 於 2011-9-7 23:05 編輯

回復 8# am0251
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A2], [A2].End(xlDown))
  4.   If IsEmpty(d(Format(a, "yyyy/m/d"))) Then d(Format(a, "yyyy/m/d")) = Array(Format(a, "yyyy/m/d"), a.Offset(, 1).Value)
  5. Next
  6. Sheet2.[A2].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
  7. End Sub
複製代碼
作者: am0251    時間: 2011-9-8 14:25

非常的感謝,但可以再教我多一個功能嗎?就是可以找出資料的位置放入變數中嗎?因為我是需要根據這位置的資料去做其他的工作的,再一次萬二分的感謝~~!!



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