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

okzmz001 · 发表于 2018-9-27 14:28

本帖最后由 okzmz001 于 2018-9-30 13:41 编辑

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 · 发表于 2018-9-27 15:07

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

okzmz001 · 发表于 2018-9-30 13:13

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

不知道为什么 · 发表于 2018-9-30 13:24

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

为什么不上传附件呢？

okzmz001 · 发表于 2018-9-30 13:29

本帖最后由 okzmz001 于 2018-9-30 13:33 编辑

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

		自动登录	找回密码
密码			免费注册

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