|
发表于 2016-3-22 16:49
|
显示全部楼层
本楼为最佳答案
- Sub 加序号()
- For i = 7 To [c65536].End(3).Row
- a = Cells(i, 1): b = Cells(i, 2): c = Cells(i, 3)
- If Len(a) > 0 And InStr("一二三四五六七八九十", Left(a, 1)) > 0 Then
- n = 0
- Else
- If Len(b) > 0 Then
- n = n + 1
- m = 0
- Cells(i, 1) = n
- 'If Cells(i, 4) <> "" Then Cells(i, 2).Resize(1, 3).Merge Else Cells(i, 2).Resize(1, 2).Merge
- ElseIf Len(c) > 0 Then
- m = m + 1
- Cells(i, 1) = n & "." & m
- Cells(i, 1).Resize(1, 2).Merge
- End If
- End If
- Next
- End Sub
复制代码 |
|