求助表格处理代码

zjc5102

请各位大佬帮忙，非常感谢！

darklesson

我觉得简单的公式就搞定了。代码虽然也简单懒得去写。

zxsea_7426

1. Private Sub CommandButton39_Click()
   
2.     Range("A4:F23").ClearContents
   
3.     [d24] = ""
   
4.     [a25] = ""
   
5.     [b25] = ""
   
6.     [d25] = ""
   
7. End Sub
   
8. 
   
9. Sub 编号()
   
10.     ar = Range("A4:F23")
    
11.     For j = 1 To UBound(ar, 2) Step 3
    
12.         For i = 1 To UBound(ar)
    
13.             If Len(ar(i, j + 1) & ar(i, j + 2)) Then
    
14.                 n = n + 1
    
15.                 ar(i, j) = n
    
16.             End If
    
17.         Next i
    
18.     Next j
    
19.     [a4].Resize(UBound(ar), 1) = Application.WorksheetFunction.Index(ar, 0, 1)
    
20.     [d4].Resize(UBound(ar), 1) = Application.WorksheetFunction.Index(ar, 0, 4)
    
21. End Sub
    

复制代码

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, j&, n&
    With [A4:F23]
        ar = .Value
        For j = 2 To UBound(ar, 2) Step 3
            For i = 1 To UBound(ar)
                If ar(i, j) <> "" Then
                    n = n + 1
                    ar(i, j - 1) = n
                End If
            Next i
        Next j
        .Value = ar
    End With
End Sub
Sub clearData()
    [A4:F23].ClearContents
End Sub

sxbjzjf110

参与一下

zjc5102

gwjkkkkk 发表于 2023-4-6 21:06
Option Explicit
Sub test()
    Dim ar, i&, j&, n&

1、倒数第二行“页”字前面的空不要有编号（当总行数少于25行就会出现页字前面的编号，无论多少行页字前面不能出现编号）
2、清空数据的时候原始内容不要清除，因为有时候编号少于20，行数会删除不固定。

zjc5102

zxsea_7426 发表于 2023-4-6 18:02

1、倒数第二行“页”字前面的空不要有编号（当总行数少于25行就会出现页字前面的编号，无论多少行页字前面不能出现编号）
2、清空数据的时候原始内容不要清除，因为有时候编号少于20，行数会删除不固定。

zxsea_7426

zjc5102 发表于 2023-4-7 10:06
1、倒数第二行“页”字前面的空不要有编号
2、清空数据的时候原始内容不要清除，因为有时候编号少于20， ...

看样子是未看代码，代码未涉及删除单元格。原表单元格固定区域

zjc5102

sxbjzjf110 发表于 2023-4-7 09:59
参与一下

1、倒数第二行“页”字前面的空不要有编号（当总行数少于25行就会出现页字前面的编号，无论多少行页字前面不能出现编号）
2、清空数据的时候原始内容不要清除，因为有时候编号少于20，行数会删除不固定。

zjc5102

zxsea_7426 发表于 2023-4-7 10:10
看样子是未看代码，代码未涉及删除单元格。原表单元格固定区域

谢谢你的帮助，麻烦再改下