生成序号并删除指定区域内容

21111按时

生成序号并删除指定区域内容

taller

Qs18

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     If T.Row = 5 Then
   
3.         If T.Value = "加" Then
   
4.         ReDim a(1 To 30, 1 To 1)
   
5.         For i = 1 To 30
   
6.             a(i, 1) = i
   
7.         Next i
   
8.             T.Offset(2).Resize(30, 1) = a
   
9.         ElseIf T.Value = "删" Then
   
10.             T.Offset(2, -1).Resize(30, 1) = Empty
    
11.         End If
    
12.     End If
    
13. End Sub
    

复制代码

Qs18

试试...........

Qs18

试试......

21111按时

Qs18 发表于 2024-11-10 08:56
试试......

删除全部没有放映

21111按时

谢谢老师，删除区域那里，最好是按之前的文字

taller

21111按时 发表于 2024-11-10 19:12
谢谢老师，删除区域那里，最好是按之前的文字

按之前的文字 - 什么意思？请说明需求

21111按时

taller 发表于 2024-11-11 01:22
按之前的文字 - 什么意思？请说明需求

我看老师有生产了一个框框，我想直接就是像左边加，或删那样，点击单元格就可以实现，另外删除范围包括右边大的红色框