求某值出现的顺序值

laterite · 发表于 2023-7-14 16:08

本帖最后由 laterite 于 2023-7-14 18:17 编辑

想获取指定行中对应G列值，在相同值出现的顺序号，谢谢帮忙

leepoison · 发表于 2023-7-14 16:27

=COUNTIF($G$1:G1,G1)

leepoison · 发表于 2023-7-14 16:30

也许你是要VBA,
Sub CountAppearances()
Dim ws As Worksheet
Dim LastRow As Long
Dim i As Long, j As Long
Dim Count As Integer

Set ws = ThisWorkbook.Sheets("Sheet1") '假设你要操作的工作表名为 "Sheet1"
LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

For i = 1 To LastRow
      Count = 0
      For j = 1 To i
         If ws.Cells(i, "G").Value = ws.Cells(j, "G").Value Then Count = Count + 1
      Next j
      ws.Cells(i, "H").Value = Count
Next i
End Sub

512008404 · 发表于 2023-7-14 16:32

参与一下！

盼盼198310 · 发表于 2023-7-14 16:33

..........

ykcbf1100 · 发表于 2023-7-14 16:47

本帖最后由 ykcbf1100 于 2023-7-14 16:50 编辑

附件供参考。。。

laterite · 发表于 2023-7-14 18:15

512008404 发表于 2023-7-14 16:32
参与一下！

代码有效，感谢帮助，送上小花两朵！

laterite · 发表于 2023-7-14 18:16

ykcbf1100 发表于 2023-7-14 16:47
附件供参考。。。

代码有效，感谢帮助，送上小花两朵！

laterite · 发表于 2023-7-14 18:17

盼盼198310 发表于 2023-7-14 16:33
..........

代码有效，感谢帮助，送上小花两朵！

laterite · 发表于 2023-7-14 18:19

leepoison 发表于 2023-7-14 16:30
也许你是要VBA,
Sub CountAppearances()
Dim ws As Worksheet

代码有效，感谢帮助，送上小花两朵！

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

[已解决] 求某值出现的顺序值

评分

评分

评分

评分