如何抽取同一格的日期再整合呢?

am0251

Date and Time.rar (15.21 KB)

下載次數: 18

2011-8-30 16:35

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

Hsieh

回復 1# am0251

下載 (455.58 KB)

2011-8-30 18:57

am0251

謝謝Hsieh大大的提點,我試一下錄下來,再用VBA寫一次!!

am0251

我試着錄下來,再寫成VBA,可是我錄下來之後再做一次,B行全都變成了"AM" , "PM"

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. 
   
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

我己從匯入的方面解決了,可是如A1的日期是"21/6/2011",但我想找下一日的日期"22/6/2011"的位置是"A?",該怎麼找呢?

Hsieh

回復 5# am0251

試試將B欄位加上欄位名稱候用進階篩選

am0251

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

am0251

簡單的說,我就是想在整行幾組相同的資料中找出每組中第一個出現的位置

Hsieh

回復 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

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