如何實現同條件的自動填充，請各位大俠指教，感謝！！

nbwde

各位大俠，以下功能用VBA如何實現，小弟為初學者，求教了，感謝！！！求取自動填充K列、L列空白單元格數值，已有數據不變
如圖： E8=E3     J8=J3    則K8自動填充K3的值、L8自動填充L3的值




附件.zip (25.88 KB, 下载次数: 7)

2019-1-17 15:53 上传

点击文件名下载附件

lsdongjh

规则不明，第6、7两行，E列和J列的数值也等于 第8行

liulang0808

选择4,5，10 三列未关键字，今天统计填写
如果不合适，楼主自行调整，或者重新细化说明需求

nbwde

lsdongjh 发表于 2019-1-17 17:10
规则不明，第6、7两行，E列和J列的数值也等于 第8行

已第一行數據為準

lsdongjh

1. Sub Test()
   
2.     Dim shData As Worksheet
   
3.     Dim arr As Variant, objDic As Object
   
4.     Dim strKey As String, lngItem As Long
   
5.     Dim lngRow As Long, lngID As Long
   
6.    
   
7.     Set shData = Sheets("基礎資料-IWMS")
   
8.     arr = shData.UsedRange
   
9.     Set objDic = CreateObject("Scripting.Dictionary")
   
10.     '倒序取值
    
11.     For lngRow = UBound(arr) To LBound(arr) + 1 Step -1
    
12.         strKey = arr(lngRow, 5) & "|" & arr(lngRow, 10) 'E列 + J列
    
13.         objDic(strKey) = lngRow
    
14.     Next
    
15.     '顺序赋值
    
16.     For lngRow = LBound(arr) + 1 To UBound(arr)
    
17.         If arr(lngRow, 11) = "" Then 'K列为空
    
18.             strKey = arr(lngRow, 5) & "|" & arr(lngRow, 10)
    
19.             lngItem = objDic(strKey)
    
20.             arr(lngRow, 11) = arr(lngItem, 11)
    
21.             arr(lngRow, 12) = arr(lngItem, 12)
    
22.         End If
    
23.     Next
    
24.    
    
25.     shData.UsedRange.NumberFormat = "@"
    
26.     shData.UsedRange = arr
    
27. End Sub

复制代码

nbwde

lsdongjh 发表于 2019-1-18 13:20

非常感謝，大神！！！