宏内如何多次运行相似的内容

wcz55

我套用了一个自动填充的宏，当单元格B11发生变化时，会将库存表对应的内容填充到N12单元格，可以在绿色单元格生成下拉选项。请问如何实现B12至B26都有同样的效果，可以以此填充到P12-W12

同时将套用宏放在最前面，自动填充物料代码，谢谢

3190496160

给你的东西，你置之不理，不置可否，呵呵呵

MOY838840554

主要用Intersect这个函数，可以得到多个区域的交集

比如：
Intersect(Range("B11:B26"), Range("B11")) 就会返回交集Range("B11")
Intersect(Range("B11:B26"), Range("B27")) 没有交集返回Nothing

1. Private Sub Worksheet_Change(ByVal t As Range)
   
2.     ' >>> 判断变更的单元格是否在符合的区域内
   
3.     ' Intersect:返回多个区域的交集,没有交集退出程序
   
4.     If Intersect(Range("B11:B26"), t) Is Nothing Then Exit Sub
   
5.    
   
6.     ' >>> 符合的单元格的操作
   
7.     Dim c As Range, rng
   
8.     'If t.Address = "$B$11" Then
   
9.     [N11:N265] = ""
   
10.     With Sheets("库存表")
    
11.         Set c = .Cells.Find(t.Value, , , , , 1)
    
12.         If Not c Is Nothing Then
    
13.             rng = .Range(.Cells(c.Row + 0, 3), .Cells(c.End(4).Row, 3))
    
14.             [N11].Resize(UBound(rng), 1) = rng
    
15.         End If
    
16.     End With
    
17.     'Else
    
18.     'Exit Sub
    
19.     'End If
    
20. End Sub
    

复制代码

wcz55

3190496160 发表于 2022-12-5 14:43
给你的东西，你置之不理，不置可否，呵呵呵

不明白你的意思

3190496160

wcz55

3190496160 发表于 2022-12-5 15:35

对不起，刚看到
谢谢