12
返回列表 上一主題 發帖

不同工作表找對比資料，工作表名稱不固定

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
7# 跳轉到 »
發表於 2024-2-26 14:44 | 只看該作者
本帖最後由 Andy2483 於 2024-2-26 14:59 編輯

回復 6# 198188


    AM-JO58-01-1, AM-JO58-01-2, AM-JO58-02
這幾個表的E欄是隱藏起來的,你的手動比對有誤
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
405 
主題
58 
精華
0 
積分
489 
點名
29  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-5-23 
6#
發表於 2024-2-26 14:16 | 只看該作者



    裏面5個資料都是一樣的，不過客戶提供的版本有儲存格格式問題，所以導致對不上。
我意思是問前輩，有沒有一句程式，可以在核對資料的時候，跳過這種格式問題？

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
5#
發表於 2024-2-26 13:17 | 只看該作者
回復 4# 198188


    題意看起來是5欄全同才標"Y",
範例盡量是有手動處理好想要的結果附在範例裡
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
405 
主題
58 
精華
0 
積分
489 
點名
29  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-5-23 
4#
發表於 2024-2-26 13:01 | 只看該作者
回復 3# Andy2483


    大致可以，不過有個部分有問題，AM-JO58-01-1, AM-JO58-01-2, AM-JO58-02 的欄B 因爲不是數字，是文字，所以導致前面1-16列大部分都有，但是結果卻寫無。

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1429 
主題
40 
精華
0 
積分
1453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-5-18 
3#
發表於 2024-2-26 10:09 | 只看該作者
回復 1# 198188

謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典,學習方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, Z, i&, j%, R&, s%, T$, T2$, T3$
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range(Sheets(1).[H12], Sheets(1).[A65536].End(3))
ReDim Crr(1 To UBound(Brr), 1 To 2)
For i = 1 To UBound(Brr)
   T3 = Trim(Brr(i, 3))
   If T3 = "" Then GoTo i01
   For j = 4 To 8
      T = T & "/" & Val(Brr(i, j))
   Next
   Z(T3 & T) = i
   T = ""
   Crr(i, 1) = "N"
i01: Next
For s = 2 To Sheets.Count
   Arr = Range(Sheets(s).[G13], Sheets(s).[A65536].End(3))
   For i = 1 To UBound(Arr)
      T2 = Trim(Arr(i, 2))
      If T2 = "" Then GoTo i02
      For j = 3 To 7
         T = T & "/" & Val(Arr(i, j))
      Next
      R = Z(T2 & T)
      If R <> 0 Then Crr(R, 1) = "Y": Crr(R, 2) = Sheets(s).Name & "/ " & i + 12 & "列"
      T = ""
i02: Next
Next
Sheets(1).[I12].Resize(UBound(Crr), 2) = Crr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
405 
主題
58 
精華
0 
積分
489 
點名
29  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-5-23 
2#
發表於 2024-2-26 08:38 | 只看該作者
回復 1# 198188


    這個主要是卡在工作表的不固定數量及名稱問題上。

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
12
返回列表 上一主題