返回列表 上一主題 發帖

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 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

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題