按条件分级编号的问题，比较着急。

maomao218 · 发表于 2017-9-21 15:40

本帖最后由 maomao218 于 2017-9-22 09:51 编辑

现在我遇到了这样一个问题，单位资产清查需要给资产编号，编号还必须是1、1-1、1-2.。。这样的，我自己写的代码只能将第一级的编号编号，后面的1-1、1-2、1-3就实现不了了，而且表格里的数据只有49行，实际有两三千行，而且有的是只有一级、有的有两级、有的有n多级，我不知道怎么编号了。

Sub 自动编号()
Dim a, b, c, d As Integer                   '定义四个变量
a = 1

      For b = 6 To 50                   '设置b 6到100的循环
         If Not IsEmpty(Cells(b, 1)) Then '如果单元格b行1列不是空行则
                  Cells(b, 1) = a       'b行1列的值为a
                  Else                   '否则
                     a = a + 1
         End If
      Next b
End Sub
我写的是这样婶儿的。。

microyip · 发表于 2017-9-21 16:08

用Split(编号,"-")得到编号数组，如果没有第二个参数的，就加“-1”，有就后面参数+1处理

wenping998 · 发表于 2017-9-21 16:14

不错啊谢谢学习了

maomao218 · 发表于 2017-9-21 18:23

microyip 发表于 2017-9-21 16:08
用Split(编号,"-")得到编号数组，如果没有第二个参数的，就加“-1”，有就后面参数+1处理

...额能加到我的代码里吗，我还不知道spilt怎么用啊刚学了两三天

maomao218 · 发表于 2017-9-21 18:25

谁能教教我啊？难道我真的要加班到后半夜了么？

maomao218 · 发表于 2017-9-22 08:43

来人救救我啊~

maomao218 · 发表于 2017-9-22 09:49

嘿嘿，嘿嘿嘿。。。我自己研究出来了~ 昨天脑子比较混乱今天想了想
Sub 自动编号()
Dim a, b, c, d As Integer                   '定义四个变量
a = 1
c = 1
      For b = 6 To 56                   '设置b 6到100的循环
         If Not IsEmpty(Cells(b, 1)) Then
            Cells(b, 1) = a
                  a = a + 1
                  c = 1
                     Else
                        Do While IsEmpty(Cells(b, 1))
                              Cells(b, 1) = a - 1 & "-" & c
                              Loop
                              c = c + 1
                              If Not IsEmpty(Cells(b, 1)) Then
                                                               End If
         End If
      Next b

End Sub
虽然比较笨，但是很使用~

microyip · 发表于 2017-9-22 10:03

sorry,回复错贴

		自动登录	找回密码
密码			免费注册

[已解决] 按条件分级编号的问题，比较着急。

最新热点 /1