VBA多条件计算得出需要的序号结果

zhang139 · 发表于 2024-4-11 05:06

本帖最后由 zhang139 于 2024-4-11 07:37 编辑

请论坛的高手大能帮忙看下~
VBA多条件计算得出需要的序号结果
类型一样，备注没有标识重要，为一个序号
有备注重要为一个，有备注重要的序号不能重复

沈默00 · 发表于 2024-4-11 07:27

你不解释一下，序号怎么个算法吗？

zhang139 · 发表于 2024-4-11 07:32

沈默00 发表于 2024-4-11 07:27
你不解释一下，序号怎么个算法吗？

标识重要不能重复递增序号

ykcbf1100 · 发表于 2024-4-11 07:33

解释一下，序号怎么个算法。你所谓的多条件在哪儿呢？
你啥都不说，别人就啥都不干，只好如此。

沈默00 · 发表于 2024-4-11 07:40

zhang139 发表于 2024-4-11 07:32
标识重要不能重复递增序号

还是看不懂，标重要的也不是连号，其他数字的递增也找不到规律，
问题应该不复杂，，让其他老师先看看吧，

shiruiqiang · 发表于 2024-4-11 07:52

本帖最后由 shiruiqiang 于 2024-4-11 07:55 编辑

大概这样，标识“出”的为1，然后第一个出现“出”及第一个“重要”的2，出现“出”及第二个“重要”的+1=3，以此类推；
标识“进”的为上面最大的数字+1，第一个出现“进”及第一个“重要”的前面的数字+1，多一个“重要”就+1

zhang139 · 发表于 2024-4-11 07:56

shiruiqiang 发表于 2024-4-11 07:52
大概这样，标识“出”的为1，然后第一个出现“出”及第一个“重要”的2，出现“出”及第二个“重要”的+1=3 ...

嗯嗯嗯嗯嗯嗯嗯

ykcbf1100 · 发表于 2024-4-11 08:04

zhang139 发表于 2024-4-11 07:56
嗯嗯嗯嗯嗯嗯嗯

你已经是10多年的老会员了，不知道求助需要先说明吗？一次性说清楚比啥都强。你现在这样让人去猜，没有耐心的人早就走了。

lxdexcel · 发表于 2024-4-11 08:32

Option Explicit
Sub 按钮2_Click()
Dim d As Object
Dim last&, i&, str1$, str2$, id&
Set d = CreateObject("Scripting.dictionary")
last = Range("a65536").End(xlUp).Row
id = 1
For i = 2 To last
str1 = Cells(i, 1).Value
str2 = Cells(i, 2).Value
If Len(str2) = 0 Then
If d.Exists(str1) Then
Cells(i, 4) = d(str1)
Else
Cells(i, 4) = id
d(str1) = id
id = id + 1
End If
ElseIf str2 = "重要" Then
Cells(i, 4) = id
id = id + 1
End If
Next
Set d = Nothing
End Sub
VBA计算序号.rar (17.42 KB, 下载次数: 4)

2024-4-11 08:31 上传
点击文件名下载附件

复制代码

baofa2 · 发表于 2024-4-11 08:44

Sub test0()
Dim ar, dict As Object
Dim i As Long, num As Long
Set dict = CreateObject("Scripting.Dictionary")
ar = Range("A1").CurrentRegion.Resize(, 4).Value
For i = 2 To UBound(ar)
ar(i, 4) = ""
If ar(i, 1) <> ar(i - 1, 1) Or ar(i, 2) = "重要" Then
num = num + 1
ar(i, 4) = num
If Not dict.Exists(ar(i, 1)) Then dict.Add ar(i, 1), num
Else
ar(i, 4) = dict(ar(i, 1))
End If
Next
Range("A1").Resize(UBound(ar), UBound(ar, 2)) = ar
Set dict = Nothing
Beep
End Sub

复制代码

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

[求助] VBA多条件计算得出需要的序号结果

评分

[求助] VBA多条件计算 得出需要的序号结果

评分

[求助] VBA多条件计算得出需要的序号结果