12
返回列表 上一主題 發帖

資料比對

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-5-14 20:00 | 只看該作者

資料比對

請問各位, 如何將一張worksheet與另一張worksheet資料作比對... 如第一張sheet column A and coumn B內資料在第二張sheet 的資料是相同, 就在第二張sheet的column D = 第一張sheet 的column C, 但如果找不到相同資料, 那就在第二張sheet的最尾一行加上這行, 例如

sheet  1
A          B         C
1.    ABC      123
2.   DEC       234
3.   DDF      123
總數有100行

sheet  2
A.       B.        C            D
1.      BBB     234
2.      DEC    222      234
3.      FFF     333
總數有200行

謝謝各位幫忙....
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
14#
發表於 2012-6-19 09:03 | 只看該作者
回復 13# waterfox

  這是我上載檔案中的程式碼~
  1. Private Sub CommandButton1_Click()   '資料拋轉
  2. '========  A =>每一列跑的次數  ====================
  3. A = Sheet4.Range("IV2").End(xlToLeft).Column
  4. A = (A - 4) / 3
  5. If A - Int(A) > 0 Then
  6.    MsgBox "資料欄位有誤"
  7.    Exit Sub
  8. End If
  9. A = A - 1
  10. '========  B => 總共要跑的筆數  ====================
  11. B = Sheet4.Range("A65536").End(xlUp).Row

  13. For I = 3 To B
  14.     Set C = Sheet2.Columns("B:B").Find(Sheet4.Range("B" & I))
  15.    
  16.     If Not C Is Nothing Then
  17.     C = Sheet2.Columns("B:B").Find(Sheet4.Range("B" & I)).Row

  19.     For J = 0 To A    '(EX. 0->11 =12次)
  20.         D = Sheet4.Cells(I, 7 + J * 3)
  21.         If D = "" Then
  22.         Else
  23.         Do Until Sheet2.Range("F" & C + K) = ""
  24.            If Sheet2.Range("F" & C + K) = D Then
  25.               If Sheet4.Cells(I, 5 + J * 3) > 0 Then
  26.               Sheet2.Cells(C + K, 7 + J) = Sheet4.Cells(I, 5 + J * 3)
  27.               End If
  28.               If Sheet4.Cells(I, 6 + J * 3) > 0 Then
  29.               Sheet2.Cells(C + K, 21 + J) = Sheet4.Cells(I, 6 + J * 3)
  30.               End If
  31.               P = 1
  32.               Exit Do
  33.            End If
  34.            K = K + 1
  35.         Loop
  36.         If P = 0 Then
  37.            Sheet2.Rows(C + K).Insert Shift:=xlDown
  38.            Sheet2.Range("F" & C + K) = Sheet4.Cells(I, 7 + J * 3)
  39.            If Sheet4.Cells(I, 5 + J * 3) > 0 Then
  40.             Sheet2.Cells(C + K, 7 + J) = Sheet4.Cells(I, 5 + J * 3)
  41.            End If
  42.            If Sheet4.Cells(I, 6 + J * 3) > 0 Then
  43.             Sheet2.Cells(C + K, 21 + J) = Sheet4.Cells(I, 6 + J * 3)
  44.            End If
  45.         End If
  46.         End If
  47.     K = 0
  48.     P = 0
  49.     Next
  50.     End If
  51. Next

  53. End Sub
複製代碼
學習才能提升自己

TOP

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
13#
發表於 2012-6-18 22:05 | 只看該作者
Hugh0620, 真是很感激你的幫忙, 感激感激, 我以為冇人理我, 我已經自己用一個很大的程序去完成, 不過我會試用你幫忙編寫的附檔，由於我權限問題, 現在仍未有資格開啟壓縮檔...遲些我會再嘗試, 再次感激你啊...

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
12#
發表於 2012-6-12 11:23 | 只看該作者
回復 11# waterfox


    Sorry~ 最近工作比較忙~ 所以~ 比較沒有時間上來~
    您的問題主要是將[Stock on hand]拋轉到[Summary]中~
    可試試附檔~  但是還有一個第方沒有寫唷~
    就是你在[Stock on hand] 有一個項目99 在 [Summary] 是沒有的
    因為不知道你整個操作的邏輯~ 所以~ 先完成針對將資料拋轉~
    再來一步一步的來調整~ 你所需要的~
      record-TEST.rar (81.28 KB)
學習才能提升自己

TOP

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
11#
發表於 2012-6-6 22:04 | 只看該作者
謝謝你的幫忙, 我今天終於有時間嘗試... 但有少少問題, 已附上給大大查看, 要每個月都有一個Worksheet stock list, 因為不才, 故此我會先將所有data放在sheets("Stock on hand"), 然後再將資料匯入sheets("Summary"), 但用了你的方法後,  如Column A 及Column B相同的話.. 第二行的資料便放進了隔離的月份, 但可否如column A, column B, column C and column D 要4個資料相同便在該月份column插入資料, 否則在下一行insert row, 然後插入與column A 及B 相同的資料,

其實最終的資料會放在summary sheets, 便可知道全年stock in and out movement, 謝謝你的幫忙
record.zip (105.42 KB)

TOP

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
10#
發表於 2012-5-16 22:47 | 只看該作者
謝謝你的指導, 我明天會再嘗試一下.. 感激

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
9#
發表於 2012-5-16 10:22 | 只看該作者
回復 7# waterfox

    建議您~ 資料的架構再調整一下會比較好唷~
                     資料庫的觀念~
                     每個月份的欄位都一樣~ 放在同一個SHEET~ 多加一個欄位[月份]來區別~
                     跟你區分成很多活頁來儲放資料~ 結果是一樣的~
                    但在處理上相對比較好處理一些~
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
8#
發表於 2012-5-16 10:09 | 只看該作者
本帖最後由 hugh0620 於 2012-5-16 10:12 編輯

模擬的環境在同一個EXCEL檔中
SHEET1
A             B
ABC      123
DEC      234
DDF     123

SHEET2
A            B
BBB      234
DEC     222
DDF    234
  1. Sub EX()
  2. A = Sheet1.Range("A65536").End(xlUp).Row
  3. For I = 1 To A
  4.     Set F = Sheet2.Columns("A:A").Find(Sheet1.Range("A" & I))  '先比對A欄位是否
  5.     If Not F Is Nothing Then                                   '判斷式:F找不到的話
  6.        F = Sheet2.Columns("A:A").Find(Sheet1.Range("A" & I)).Row
  7.        Set F1 = Sheet2.Range("A" & F & ":A" & F).Find(Sheet1.Range("B" & I))
  8.        If F1 Is Nothing Then                                   '再判斷B值不存在就在下一欄新增
  9.           F2 = Sheet2.Range("IV" & F).End(xlToLeft).Offset(0, 1).Column
  10.           Sheet2.Cells(F, F2) = Sheet1.Range("B" & I)
  11.        End If
  12.     Else                                                      '當Sheet2找不到sheet1 A欄位資料時，就在最下面新增
  13.        A2 = Sheet2.Range("A65536").End(xlUp).Row
  14.        Sheet2.Range("A" & A2) = Sheet1.Range("A" & I)
  15.        Sheet2.Range("B" & A2) = Sheet1.Range("B" & I)
  16.     End If
  17. Next
  18. End Sub
複製代碼
學習才能提升自己

TOP

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
7#
發表於 2012-5-16 10:00 | 只看該作者
Jan12.zip (121.48 KB)
Feb12.zip (111.66 KB)
Summary.zip (150.77 KB)

thanks

TOP

waterfox

帖子
28 
主題
13 
精華
0 
積分
43 
點名
0  
作業系統
window 
軟體版本
office 2000 
閱讀權限
10 
性別
女 
來自
Hong Kong 
註冊時間
2011-1-14 
最後登錄
2021-8-27 
6#
發表於 2012-5-16 00:28 | 只看該作者
[版主管理留言]
  • Hsieh(2012-5-16 08:18): 上傳檔案請壓縮後上傳，並符合檔案大小與格式

以下是每個月都有一張存貨表, 例如1月及2月
[attach]10963[/attach]
[attach]10964[/attach]

要將每個月的存貨自動到整年的summary sheet, 但每個item都有不同的入貨價錢, 亦會有新的項目新加的, 就加在該第一column的item number, 例如 (1). 代表Rose, 但幾個月後(1). Rose 會用完存貨後, (1) 會用在其他新的產品上, 例如在三月份 (1) 可能被 另一產品代替, 但(1) Rose 又不可刪除. 所以可否在(1) Rose 以下自動加上一行並加入新的產品名稱及儲貨記錄?
[attach]10965[/attach]

謝謝你的幫忙..

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
12
返回列表 上一主題