[已解决]如何根据excel单元格内的一个值自动生成到另一个sheet内的行

大灰狼1976

出问题的原因是B19单元格有内容，而其后面都是空的，所以无法处理房号分解。
不完整的数据总会出现各种各样的问题，如果你不想以B列作为判断依据，而是以D列来判断的话，改下代码就行。
至于代码合并，你可以自己试下，除了变量可能会有冲突之外，单元格区域操作是没有问题的。

1.     Private Sub CommandButton2_Click()
   
2.     Dim n&, s$, i&, j&, k&, arr, brr, crr, r&
   
3.     arr = [b17:ad20]
   
4.     For i = 1 To UBound(arr)
   
5.       If arr(i, 3) = "" Then Exit For
   
6.       brr = Split(arr(i, 3), "-")
   
7.       n = n + (brr(1) - brr(0)) / 100 + 1
   
8.     Next i
   
9.     ReDim brr(1 To n, 1 To UBound(arr, 2))
   
10.     For i = 1 To UBound(arr)
    
11.       If arr(i, 3) = "" Then Exit For
    
12.       crr = Split(arr(i, 3), "-")
    
13.       For j = crr(0) To crr(1) Step 100
    
14.         r = r + 1
    
15.         For k = 1 To UBound(arr, 2)
    
16.           brr(r, k) = arr(i, k)
    
17.         Next k
    
18.         brr(r, 3) = j
    
19.         brr(r, 4) = Int(j / 100)
    
20.       Next j
    
21.     Next i
    
22.     [c27].Resize(r, UBound(brr, 2)) = brr
    
23.     End Sub

复制代码