我想在增加了序号的同时，将上一行的格式和宽度复制下来

okzmz001

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row < 4 Then Exit Sub
    For r = [B65536].End(xlUp).Row To 4 Step -1
        If Cells(r, "B") <> "" Then
            m = Application.CountA(Range("B4:B" & r))
            Cells(r, "B").Offset(0, -1) = m 'Cells(r, "B").Offset(0, -1) = n + 464907开始的序号
        Else
            Cells(r, "B").EntireRow.ClearContents
        End If
    Next
    [B65536].End(xlUp).Offset(1, 0).Resize(65536 - [B65536].End(xlUp).Row, 1).EntireRow.ClearContents
End Sub

liulang0808

拷贝上一行，然后在当前行粘贴，
再将数据清理，然后写入序号，如果当前行有数据，那么可以先读入数组，再赋值。思路供参考
或者

okzmz001

那位高手帮忙写一下，我弄了好久没有弄出来

不知道为什么

okzmz001 发表于 2018-9-30 13:13
那位高手帮忙写一下，我弄了好久没有弄出来

为什么不上传附件呢？

okzmz001

附件已上传，请高手们帮忙弄一下，谢谢