返回列表 上一主題 發帖

[發問] 如何在將比對後的資料，填入非連續區域的儲存格內

sptakung1

帖子
32 
主題
10 
精華
0 
積分
68 
點名
0  
作業系統
win xp 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
南投縣 
註冊時間
2010-9-28 
最後登錄
2019-10-4 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-10 13:40 | 只看該作者

[發問] 如何在將比對後的資料，填入非連續區域的儲存格內

請教各位前輩及先進，如何在『出勤資料表』中找出正確的對應值填入『值班津貼』工作表內。

TT1.rar (42.9 KB)

收藏 分享

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-10 15:25 | 只看該作者
回復 1# sptakung1
  1. Sub Ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet3
  4.   For Each A In .Range(.[A2], .[A2].End(xlDown))
  5.      For Each c In A.Offset(, 1).Resize(, 4)
  6.         d(A & c) = A.Offset(, 5)
  7.      Next
  8.   Next
  9. End With
  10. With Sheet6
  11. For i = 5 To 35
  12.   For j = 4 To 70 Step 3
  13.   mystr = .Cells(3, i) & .Cells(j + 1, 1)
  14.   .Cells(j, i) = d(mystr)
  15.   Next
  16. Next
  17. End With
  18. End Sub
複製代碼
學海無涯_不恥下問

TOP

sptakung1

帖子
32 
主題
10 
精華
0 
積分
68 
點名
0  
作業系統
win xp 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
南投縣 
註冊時間
2010-9-28 
最後登錄
2019-10-4 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2011-8-10 15:32 | 只看該作者
非常感謝超版大大的幫忙，完全符合需求，非常感謝。

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題