VBA插入序号

夏日生花

小白请老师指导，谢谢！

ykcbf1100

参与一下。。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.24
   
2.     With Sheets("原表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         If InStr(.[a2].Value, "序号") = 0 Then
   
5.             Set Rng = .[a2].Resize(r - 1, 8)
   
6.             .Columns("A:A").Select
   
7.             .Range("A2").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
   
8.             .Range("A2") = "序号"
   
9.             For i = 3 To r
   
10.                 .Cells(i, 1) = i - 2
    
11.             Next
    
12.             .UsedRange.Offset(r).Clear
    
13.             With Rng
    
14.                 .Borders.LineStyle = 1
    
15.                 .HorizontalAlignment = xlCenter
    
16.                 .VerticalAlignment = xlCenter
    
17.                 .WrapText = True
    
18.                 With .Font
    
19.                     .Name = "Arial"
    
20.                     .Size = 10
    
21.                 End With
    
22.             End With
    
23.         End If
    
24.     End With
    
25. End Sub
    

复制代码

夏日生花

ykcbf1100 发表于 2024-4-24 20:15
参与一下。。。

谢谢老师，序号串列了。

liulang0808

Sub test()
    Application.ScreenUpdating = False
    If InStr([a2], "序号") = 0 Then
        Columns(1).Insert
        [a2] = "序号"
        arr = [a2].CurrentRegion
        For j = 2 To UBound(arr)
            arr(j, 1) = j - 1
        Next j
    Else
        arr = [a2].CurrentRegion
    End If
    ActiveSheet.UsedRange.EntireRow.Delete
    With [a2].Resize(UBound(arr), UBound(arr, 2))
        .Value = arr
        .Borders.LineStyle = 1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Font.Size = 10
    End With
    Application.ScreenUpdating = True
End Sub

liulang0808

附件 内容供参考。。。。。

ykcbf1100

夏日生花 发表于 2024-4-25 07:55
谢谢老师，序号串列了。

插在A列的，你右边的数据又没用。