A列有多个合并单元格，给B列相应数据按A列类别分别添加序号

偶然古月照江北

要实现的效果如图

yeminqiang

1. Sub cdsr()
   
2.     For i = 4 To 13
   
3.         If Cells(i, 3) <> "" Then
   
4.             k = 1
   
5.             Cells(i, 4) = k & "." & Cells(i, 4)
   
6.         Else
   
7.             k = k + 1
   
8.             Cells(i, 4) = k & "." & Cells(i, 4)
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

就本例，种类应该不会是空的。只是数据太垃圾。参考一下

jiminyanyan

模拟数据时要认真些。。。。

cbtaja

1. Sub test()
   
2. Range("C4:C13") = 1
   
3. arr = Range("C4:C13").Resize(, 2)
   
4. For i = 1 To UBound(arr)
   
5.     If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1) + 1
   
6. Next
   
7. For i = 1 To UBound(arr)
   
8.     arr(i, 2) = arr(i, 1) & "." & arr(i, 2)
   
9.     arr(i, 1) = ""
   
10. Next
    
11. Range("C4:C13").Resize(, 2) = arr
    
12. End Sub

复制代码

182197315

Sub 添加序号()
Dim  i%, k%
For i = 4 To 13
    If Range("C" & i).Address = Range("C" & i).MergeArea.Address Then
        k = 1
        Range("E" & i) = "1." & Range("D" & i)
    Else
        k = k + 1
        Range("E" & i) = k & "." & Range("D" & i)
    End If
Next
End Sub

偶然古月照江北

谢谢各位大侠的帮忙与指点！

偶然古月照江北

yeminqiang 发表于 2017-6-25 19:59
就本例，种类应该不会是空的。只是数据太垃圾。参考一下

你这个添加的序号是从1一直连续到最后，即：1、2、3、4、5、6、7……我之前也是这个效果，但代码没你的简捷，学习了，谢谢！

偶然古月照江北

cbtaja 发表于 2017-6-25 20:41

谢谢大神！，完美地解决了我的问题！再次感谢！！！

偶然古月照江北

182197315 发表于 2017-6-25 21:42
Sub 添加序号()
Dim  i%, k%
For i = 4 To 13

这个代码是在另一列得到结果，不是在覆盖原表的哦，但还是要谢谢你！