|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
上面的不对,这里才是对的,你的数据库里面的“入库 ”多了个空格,所以两边对比不出来
- Sub kk()
- Set d = CreateObject("scripting.dictionary")
- brr = Sheets("数据库").UsedRange
- crr = Sheets("编辑供货商").UsedRange
- drr = Sheets("编辑供货商").Range("g1:g" & Sheets("编辑供货商").Range("g" & Rows.Count).End(xlUp).Row)
- ReDim arr(1 To UBound(brr), 1 To UBound(brr, 2))
- Sheets("台帐").Activate
- t = [d2]
- sr = [b2] & t & "入库"
- d(sr) = ""
- For i = 3 To UBound(brr)
- sr1 = brr(i, 3) & brr(i, 7) & brr(i, 2)
- If d.Exists(sr1) Then
- m = m + 1
- arr(m, 1) = Month([b2]): arr(m, 2) = Day([b2]) '''''''''''''''''数据库部分
- arr(m, 3) = brr(i, 12): arr(m, 6) = brr(i, 16)
- arr(m, 4) = brr(i, 13): arr(m, 5) = brr(i, 14)
-
-
-
- x = Application.Match(t, drr, 0)
- arr(m, 7) = crr(x, 1): arr(m, 9) = crr(x, 3) ''''''''''''''''''编辑部分
- arr(m, 10) = crr(x, 4): arr(m, 11) = crr(x, 5)
- arr(m, 12) = crr(x, 6)
-
- End If
- Next
-
-
- Range("b5:P" & Range("b" & Rows.Count).End(xlUp).Row) = ""
- Range("b5").Resize(m, 13) = arr
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|