am0251

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-8-30 15:40 | 只看該作者

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

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

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

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

10^#

發表於 2011-9-8 14:25 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2011-9-7 23:02 | 只看該作者

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

回復 8# am0251

Sub nn()
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A2], [A2].End(xlDown))
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)
Next
Sheet2.[A2].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
End Sub

複製代碼

學海無涯_不恥下問

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

8^#

發表於 2011-9-7 16:31 | 只看該作者

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

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

7^#

發表於 2011-9-1 15:16 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-8-31 18:45 | 只看該作者

回復 5# am0251

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

學海無涯_不恥下問

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

5^#

發表於 2011-8-31 17:41 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

4^#

發表於 2011-8-31 16:02 | 只看該作者

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

Sub Macro1()
'
' Macro1 Macro
'
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
End Sub

複製代碼

可惜我能力有限,不懂簡化

50 字節以內
不支持自定義 Discuz! 代碼

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

3^#

發表於 2011-8-31 15:46 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-8-30 18:58 | 只看該作者

回復 1# am0251

學海無涯_不恥下問

TOP