合并单元格

asdewq008 · 发表于 2023-4-17 20:17

合并单元格

asdewq008 · 发表于 2023-4-17 20:21

本帖最后由 asdewq008 于 2023-4-17 20:27 编辑

说明

zjdh · 发表于 2023-4-18 10:17

合并单元格加序号.rar (15.1 KB, 下载次数: 13)

asdewq008 · 发表于 2023-4-18 21:57

本帖最后由 asdewq008 于 2023-4-18 22:34 编辑

zjdh 发表于 2023-4-18 10:17

首先感谢您的耐心帮助
经过测试有以下瑕疵
1. 重新点击“加序号” 会更新原有序号
2. if b4 == "" a4 单元格自动填充序号（需要注意a4可能是a4-a7合并的单元格然 b4/b5=="" b6/b7<>""这种组合）“asda-wer-xxxxx”（xxxxx是实际的数值，）

zjdh · 发表于 2023-4-19 22:35

asdewq008 发表于 2023-4-18 21:57
首先感谢您的耐心帮助
经过测试有以下瑕疵
1. 重新点击“加序号” 会更新原有序号

1.既然已经编好号了，为啥还要再编一次？
  要想不变其实很简单：
  Sub TEST()
For I = 1 To Range("A65536").End(3).Row
      If Left(Cells(I, "A"), 8) = "asda-wer" Then
         N = Format(N + 1, "00000")
         Cells(I, "A") = "asda-wer-" & N
      End If
Next
End Sub

2.你说的第2条要求，压根就没说，神仙才知道你的要求！

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