12
返回列表 上一主題 發帖

[發問] 請問如何快速比對資料

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-9 18:32 | 只看該作者

[發問] 請問如何快速比對資料

Dear 大大,

有請點問題想請教各位.
(1)
B = Sheets("B資料庫").Range([A2], [A65536].End(xlUp))
For Each A In B
if A = 1101 Then
  ............(省略)
End If
Next A

程式會比對A2 ~ A65536內 所有的儲存值 , 不過有沒有什麼方式可以讓當程式一比對到if條件成立時 , 就不用繼續比對後面的儲存格了?

(2)
以附件範例為例.
在sheet1[c1]輸入股號 , sheet1[AE2]&[AC2]輸入搜尋年分範圍後 , 然後去比對sheet2 , 再將比對成功的資料複製到sheet1[ACx : AIx].
以附件為例 , shee2[a12]是台泥一月份 , 雖然我們已知二月份台泥是[a12].offset(0, 10) , 不過難免會有新股號加入 , 所以搜尋下個月份時還重頭開始搜尋起 , 不過至少每個月份的資料都是隔10格

小弟以For Each指令可以做到類似的功能 , 不過只能成功複製第一個月份 , 而且速度很慢.
想請教各位先進有沒有其它指令及什麼方式可以做到這樣的功能.

財報_1.zip (732.12 KB)
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-9 18:49 | 只看該作者
本帖最後由 Hsieh 於 2012-3-9 23:51 編輯

回復 1# chen255
可使用FIND找到列位
但看不懂你的欄位對應
如果執行結果有誤，請以附件中的範例填入Sheet1來說明
  1. Sub nn()
  2. Dim A As Range, B As Range
  3. With Sheet1
  4. For Each A In .Range(.[AB4], .[AB4].End(xlDown))
  5.    ym = Val(Split(A, "/")(0)) & "年" & Val(Split(A, "/")(1)) & "月"
  6.    Set B = Sheet2.Rows(1).Find(ym, lookat:=xlPart)
  7.    Set c = B.EntireColumn.Find(.[C1])
  8.    A.Offset(, 1).Resize(, 7).Value = Array(c.Offset(, 2), c.Offset(, 5), c.Offset(, 4), c.Offset(, 6), c.Offset(, 7), c.Offset(, 8), c.Offset(, 9))
  9. Next
  10. End With
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-3-9 22:36 | 只看該作者
本帖最後由 register313 於 2012-3-10 14:51 編輯

回復 1# chen255
  1. Sub 月營收明細()
  2. With Sheets("Main")
  3.   .[AB1].CurrentRegion.Offset(3, 0) = ""
  4.   For Y = .[AC2] To .[AE2]
  5.     For M = 1 To 12
  6.       Sheets(Y & "營業收入").Activate
  7.       Set Source = Sheets(Y & "營業收入").Range([A12].Offset(0, (M - 1) * 10), [J65536].Offset(0, (M - 1) * 10).End(xlUp))
  8.       Set Code = Source.Find(.[C1], , , xlWhole)
  9.       R = .[AB65536].End(xlUp).Row + 1
  10.       If Not Code Is Nothing Then
  11.         .Range("AB" & R) = Y & "/" & Format(M, "00")
  12.         .Range("AC" & R, "AI" & R) = Array(Code.Offset(, 2), Code.Offset(, 5), Code.Offset(, 4), Code.Offset(, 6), Code.Offset(, 7), Code.Offset(, 8), Code.Offset(, 9))
  13.       End If
  14.     Next M
  15.   Next Y
  16. End With
  17. End Sub
複製代碼

TOP

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
4#
發表於 2012-3-13 09:48 | 只看該作者
這幾天 工作量很大 到現在才上來看帖 ,
這裡先感謝Hsieh & register313 兩位先進 , 小弟晚一點再將測試結果貼上來 , 謝謝.

TOP

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
5#
發表於 2012-3-13 09:49 | 只看該作者
回復 2# Hsieh

小弟晚一點再將測試結果貼上來 , 謝謝.

TOP

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
6#
發表於 2012-3-13 09:49 | 只看該作者
回復 3# register313


    小弟晚一點再將測試結果貼上來 , 謝謝.

TOP

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
7#
發表於 2012-3-18 00:29 | 只看該作者
回復 3# register313

Dear register313大大

你好 , 有個問題想請教.

Sheets(Y & "營業收入").Activate

為何需要執行這段動作.

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-3-18 01:55 | 只看該作者
本帖最後由 register313 於 2012-3-18 02:12 編輯

回復 7# chen255

Sheets(Y & "營業收入").Activate
Set Source = Sheets(Y & "營業收入").Range([A12].Offset(0, (M - 1) * 10), [J65536].Offset(0, (M - 1) * 10).End(xlUp))
Sheets(Y & "營業收入").是多的,可不要
定義工作表之儲存格範圍時,該工作表必須為活動工作表

以上二行也可改為
Set source = Sheets(Y & "營業收入").Range(Sheets(Y & "營業收入").[A12].Offset(0, (M - 1) * 10), Sheets(Y & "營業收入").[J65536].Offset(0, (M - 1) * 10).End(xlUp))

http://forum.twbts.com/viewthread.php?tid=1294&highlight=SET

TOP

chen255

帖子
7 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
10 
註冊時間
2012-3-3 
最後登錄
2018-3-29 
9#
發表於 2012-3-24 17:40 | 只看該作者
回復 8# register313

了解 , 再次大大的感謝說明.

另外 , 想請教另一個問題.
假設我硬碟內有1.html , 2.html , 3.html , 4html , 5.html 共五筆檔案.
有辦法將檔案匯入到想指定的excel 位置嗎?

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
10#
發表於 2012-3-24 23:56 | 只看該作者
回復 9# chen255

excel檔 與 要匯入的html檔 放同一目錄下
  1. Sub 匯入()
  2. Dim i%
  3. Application.ScreenUpdating = False
  4. For i = 1 To 5
  5.   sFile = ThisWorkbook.Path & "\" & i & ".html"
  6.   If Dir(sFile) = "" Then GoTo NEXT_FILE
  7.      For Each Sh In Sheets
  8.          If Sh.Name = i Then
  9.             Application.DisplayAlerts = False
  10.             Sh.Delete
  11.             Application.DisplayAlerts = True
  12.          End If
  13.      Next
  14.      Sheets.Add After:=Sheets(Sheets.Count)
  15.      ActiveSheet.Name = i
  16.      Workbooks.Open Filename:=ThisWorkbook.Path & "\" & i & ".html"
  17.      Workbooks(i & ".html").Sheets("sheet1").Cells.Copy ThisWorkbook.ActiveSheet.[A1]
  18.      Workbooks(i & ".html").Close 2
  19. NEXT_FILE:
  20.    Next
  21. Application.ScreenUpdating = True
  22. MsgBox "匯入完成"
  23. End Sub
複製代碼

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
12
返回列表 上一主題