Excel VBA-将不同的时间戳分类为10分钟括号

处理数据集-示例如下：

    Device Name | Time    | Time Bracket
    ID 1        |06:24:03 | 
    ID 1        |06:24:05 | 
    ID 1        |06:31:03 | 
    ID 1        |06:54:58 | 
    ID 1        |06:55:00 | 
    ID 1        |06:59:12 | 
    ID 1        |07:24:14 | 
    ID 1        |07:24:15 | 
    ID 1        |07:32:12 | 
    ID 1        |11:07:18 | 
    ID 1        |11:21:27 | 
    ID 1        |11:32:12 | 
    ID 1        |11:32:13 | 
    ID 1        |11:36:01 | 
    ID 2        |07:05:55 | 
    ID 2        |07:05:56 | 
    ID 2        |07:22:15 | 
    ID 2        |08:32:49 | 
    ID 2        |08:32:51 | 
    ID 2        |09:05:22 | 
    ID 2        |10:11:24 | 
    ID 2        |10:11:26 | 
    ID 2        |11:34:41 | 
    ID 2        |11:42:34 | 
    ID 2        |11:42:35 | 
    ID 2        |12:50:40 |

我试图实现的是将每一行放入一个时间戳聚合列中

例如，从07:00:00到07:09:59的任何内容都包含在第3列的括号07:00:00中，07:10:00到07:19:59将是07:10:00，依此类推

我想不出一个公式可以做到这一点，所以我选择了VBA

我知道我需要遍历B列，对于每个列，查看值，并使用case语句确定它应该转到哪个列

简单地说，我不想创建24*6=144 case/if语句

我希望它只查看分钟值，然后确定是否应该将其放入6个时间括号（*:00、*：10等）中的一个，并将小时替换为从该值读取的小时

因此，我尝试实现如下内容：

    Sub time_cater()
    For i = 1 To Rows.count
    Select Case Range("Ci").Value
        Case "**:0*:**"
            'Range("Ci").Value = Range("Ci").SUBSTRING(**)+:10:00

    Next i

    End Sub

显然还有更多

问题是我不知道如何实现子字符串部分。。。如果没有，我想我会去做144个案例陈述，但必须有一个更优雅的解决方案

编辑：我也完全不确定Ci部分是否可以工作。。。我想让它通过C行（在我的工作表上是C），然后看看计数器的数字

---

我把这个传给你们，亲爱的苏黎世人民！提前感谢您的帮助。

您可以通过Excel函数完成此括号，知道B列中的数据是日期时间。我的做法大致如下：

=HOUR(B2) &"_"& INT(MINUTE(B2)/10)

这将创建可用于筛选/排序的括号

---

希望这是有道理的。

我不太确定问题出在哪里。您希望在C列中有“时间括号”，并且这个“时间括号”似乎与B列（时间）完全相同，没有秒。那么，为什么不把下面的公式（复制下来）放到单元格

C2

中，然后你就完成了

=时间（小时（B2），分钟（B2），0）

？或者我低估了这个问题的复杂性？嘿，下面是我想要的答案。我认为我不够清楚，但这也是因为我不知道用时间（x）操纵时间是可能的：）该死的，这是一种聪明的方法。。。！似乎Excel还有很多我不知道的地方！使用了一个稍加修改的版本来填充0s等，它可以工作=如果（小时（B4）我愿意投票，但我还没有代表，但谢谢你！：）-我很高兴，很高兴它成功了，@R.Sama。至于对Excel了解不够，请继续提问。我们很高兴为您提供帮助，并为您指明正确的方向！祝你的项目好运。