根据B列的姓名，在A 列用VBA 生成序号（红色部分）

ww0000 · 发表于 2022-12-3 16:01

根据B列的姓名，在A 列用VBA 生成序号（红色部分），谢谢

111.rar (5.52 KB, 下载次数: 26)

liujing_hotwind · 发表于 2022-12-3 16:10

本帖最后由 liujing_hotwind 于 2022-12-3 16:18 编辑

=IF(B1="姓名","序号",COUNTIF($B$1:B1,B1)) 公式，vba同理循环套公式

fzxba · 发表于 2022-12-3 16:12

Sub Main()
Dim ar, i&, j&
ar = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For i = 1 To UBound(ar)
If ar(i, 1) <> "姓名" Then
j = j + 1
ar(i, 1) = j
Else
j = 0
ar(i, 1) = "序号"
End If
Next
Range("A1").Resize(i - 1) = ar
End Sub

复制代码

ww0000 · 发表于 2022-12-3 16:30

liujing_hotwind 发表于 2022-12-3 16:10
=IF(B1="姓名","序号",COUNTIF($B$1:B1,B1)) 公式，vba同理循环套公式

非常感谢！！

准提部林 · 发表于 2022-12-3 16:41

Sub TEST_A1()
Dim Arr, i&, N&
Arr = Range([a1], [b65536].End(3))
For i = 1 To UBound(Arr)
If Arr(i, 2) = "姓名" Then N = 0 Else N = N + 1
Arr(i, 1) = IIf(N = 0, "序号", N)
Next i
[a1].Resize(UBound(Arr)) = Arr
End Sub

ww0000 · 发表于 2022-12-5 20:03

本帖最后由 ww0000 于 2022-12-5 20:41 编辑

liujing_hotwind 发表于 2022-12-3 16:10
=IF(B1="姓名","序号",COUNTIF($B$1:B1,B1)) 公式，vba同理循环套公式

222.rar (5.68 KB, 下载次数: 8)

老师你好，如果是要跳过标题连续序号，要怎么改代码？如附件

tanglf188 · 发表于 2022-12-5 20:48

Sub 填写序号()
Range("A:A").ClearContents
pos = 1
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
      If Cells(i, "B") = "姓名" Then
         Cells(i, "A") = "序号"
         Cells(i, "A").Font.Color = RGB(0, 0, 0)
         pos = 1
      Else
         Cells(i, "A") = pos
         Cells(i, "A").Font.Color = RGB(255, 0, 0)

         pos = pos + 1
      End If
Next
End Sub

gwjkkkkk · 发表于 2022-12-5 23:08

ww0000 发表于 2022-12-5 20:03
老师你好，如果是要跳过标题连续序号，要怎么改代码？如附件

Sub TEST()
Dim arr, i&, R&
arr = Range([B1], Cells(Rows.Count, "B").End(xlUp))
For i = 1 To UBound(arr)
   If arr(i, 1) = "姓名" Then
      arr(i, 1) = "序号"
      Else
      R = R + 1: arr(i, 1) = R
   End If
Next i
[A1].Resize(UBound(arr)) = arr
Beep
End Sub

gwjkkkkk · 发表于 2022-12-5 23:09

请楼主参考附件。。。

liujing_hotwind · 发表于 2022-12-6 08:35

本帖最后由 liujing_hotwind 于 2022-12-6 08:46 编辑

ww0000 发表于 2022-12-5 20:03
老师你好，如果是要跳过标题连续序号，要怎么改代码？如附件

=IF(B1="姓名","序号",COUNTIF($B$1:B1,"<>姓名"))

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

[求助] 根据B列的姓名，在A 列用VBA 生成序号（红色部分）

评分

评分

评分

评分

评分

评分