复制不同的文本内容，如何自动生成编号？

MrHuang1987

slonby 发表于 2023-5-17 15:56
8楼那个满足你的要求了

我下载了，也是要按钮的

MrHuang1987

slonby 发表于 2023-5-17 15:56
8楼那个满足你的要求了

也要要按钮的

MrHuang1987

jinlei2006 发表于 2023-5-16 19:59

非常感谢！功能是可以实现了，但是可不可以不要那个按钮？直接复制内容进去自动生成？不用每次都按一下

jinlei2006

MrHuang1987 发表于 2023-5-18 15:51
非常感谢！功能是可以实现了，但是可不可以不要那个按钮？直接复制内容进去自动生成？不用每次都按一下

可以啊，单元格事件

MrHuang1987

jinlei2006 发表于 2023-5-21 19:32
可以啊，单元格事件

怎样设置吖？

cyq4896

不用按钮操作

MrHuang1987

cyq4896 发表于 2023-5-22 19:29
不用按钮操作

谢谢，万分感谢！

MrHuang1987

cyq4896 发表于 2023-5-22 19:29
不用按钮操作

大神，现在还有个问题就是，这个编号只能在A列显示吗？我想在前面插入多几列它就不能用了，
Sub 自动()
Dim i%, k%, endRow
endRow = Cells(Rows.Count, 22).End(xlUp).Row
     For i = 2 To endRow
     If InStr(Cells(i, "v"), ":") Then
             k = k + 1
             Cells(i, 1) = k & "."
     End If
    Next
   
End Sub
比如说以上的代码，我在V列插入文本，想让编号在Q列显示，应该修改哪里呢？