编号出错

sampsonpon · 发表于 2022-12-30 16:38

本帖最后由 sampsonpon 于 2022-12-30 17:03 编辑

如果B5处一行数据，划红线处就会报错，且B5不能自动从1编号。为社么会这样？如何改？

10101100 · 发表于 2022-12-30 16:47

建议上传文件

sampsonpon · 发表于 2022-12-30 16:55

10101100 发表于 2022-12-30 16:47
建议上传文件

已上传附件

10101100 · 发表于 2022-12-30 17:00

sampsonpon 发表于 2022-12-30 16:55
已上传附件

文件无效，打不开，你确认一下

sampsonpon · 发表于 2022-12-30 17:05

10101100 发表于 2022-12-30 17:00
文件无效，打不开，你确认一下

应该可以了

3190496160 · 发表于 2022-12-30 17:10

如果行数是5，那么你所复制的数组就只有一个单元格，一个单元格就不是数组，所以肯定是要出错的，

3190496160 · 发表于 2022-12-30 17:11

With Sheet2
iRow = .Range("C" & .Rows.Count).End(3).Row
If iRow > 4 Then
      myAr = .Range("B4:B" & iRow).Value
      For i = 2 To UBound(myAr)
         myAr(i, 1) = i
      Next i
      .Range("B5").Resize(UBound(myAr), 1) = myAr
End If
End With

3190496160 · 发表于 2022-12-30 17:12

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

[求助] 编号出错