返回列表 上一主題 發帖

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

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! 代碼

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-30 18:58 | 只看該作者
回復 1# am0251
play.gif
學海無涯_不恥下問

TOP

am0251

帖子
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

am0251

帖子
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"
  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
複製代碼
可惜我能力有限,不懂簡化
50 字節以內
不支持自定義 Discuz! 代碼

TOP

am0251

帖子
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

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2011-8-31 18:45 | 只看該作者
回復 5# am0251

試試將B欄位加上欄位名稱候用進階篩選
學海無涯_不恥下問

TOP

am0251

帖子
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

am0251

帖子
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

Hsieh

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

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
  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
複製代碼
學海無涯_不恥下問

TOP

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
10#
發表於 2011-9-8 14:25 | 只看該作者
非常的感謝,但可以再教我多一個功能嗎?就是可以找出資料的位置放入變數中嗎?因為我是需要根據這位置的資料去做其他的工作的,再一次萬二分的感謝~~!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題