请问怎么根据栋号房号来自动分配抄表员

excelflower

原帖由 mohao 于 2010-11-11 23:25 发表
什么感谢 excelflower  兄弟，但规范栋号之后，如果房号那不输入数字的话，就不能分配抄表员了。

是“分配”代码有问题，这样改：

1. Private Sub CommandButton1_Click()
   
2.     Dim i&, j&, StrA$, StrB$, StrC$
   
3.     Application.ScreenUpdating = False
   
4.     Application.Calculation = xlManual
   
5.     For i = 2 To Range("c" & Rows.Count).End(3).Row
   
6.         StrA = Range("d" & i) & Range("e" & i) & Right(Range("f" & i), 1)
   
7.         StrC = Range("d" & i) & Range("e" & i)
   
8.         For j = 3 To Range("m" & Rows.Count).End(3).Row
   
9.             StrB = Range("m" & j) & Range("n" & j) & Range("o" & j)
   
10.             If Range("o" & j) <> "" And StrA = StrB Then
    
11.                 Range("k" & i).Value = Range("p" & j)
    
12.             ElseIf Range("o" & j) = "" And StrC = StrB Then
    
13.                 Range("k" & i).Value = Range("p" & j)
    
14.             End If
    
15.         Next j
    
16.     Next i
    
17.     Application.Calculation = xlCalculationAutomatic
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox ("搞好了！")
    
20. End Sub

复制代码

乖小孩

谢谢分享，好好学习