VBA代码改写不要用find 明细表

laoau138

VBA代码改写不要用find  明细表


Sub 生产计划统计明细表_按钮1_单击()
Dim mrow As Range, n$, x%, k As Byte
    For x = 7 To Range("A16").End(xlUp).Row
    n = Sheets("生产计划统计明细表").Range("a" & x)         '↓精确查找
    Set mrow = Sheets("材料名称").Range("c:c").Find(n, lookat:=xlWhole)
        If Not mrow Is Nothing Then '加了这句判断语句，以免查不到要找的简写的名称时出错！
            k = mrow.Row
            Range("b" & x) = Sheets("材料名称").Range("b" & k)
        Else
            Range("b" & x) = "未查到？"
        End If
    Next x
End Sub

today0427

1. Sub today()
   
2.     Dim arr, d As Object, i&, brr
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Sheets("2ÄáÏÃû3Æ").Range("b2:c" & Sheets("2ÄáÏÃû3Æ").[c65536].End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 2)) = arr(i, 1)
   
7.     Next
   
8.     With Sheets("éú2ú¼Æ»®í3¼ÆÃ÷ϸ±í")
   
9.         brr = .Range("a7:b" & .[a65536].End(3).Row)
   
10.         For i = 1 To UBound(brr)
    
11.             brr(i, 2) = d(brr(i, 1))
    
12.         Next
    
13.         .[b7].Resize(i - 1, 1) = Application.Index(brr, , 2)
    
14.     End With
    
15. End Sub

复制代码

laoau138

today0427 发表于 2017-2-9 22:34

today你又来了

today0427

这题目一个match+offset函数公式就解决了

today0427

来支持下你

laoau138

today0427 发表于 2017-2-9 22:55
来支持下你

today搞定这2条



VBA把A列数字间隔D1行提取到F列 用数组方法

http://www.excelpx.com/thread-427603-1-1.html



用VBA数组把这个改写一下 这个计算单

http://www.excelpx.com/thread-427406-1-1.html

laoau138

today0427 发表于 2017-2-9 22:55
来支持下你

today如何做

http://www.excelpx.com/thread-427650-1-1.html

VBA计算等距离间隔循环相同数字