vba - 如何使用 VBA 在给定文本条件下对表格进行排序？

Question

我使用的软件可以生成下图中类似的输出:

我想根据 RetValue 后面的数字对该表进行排序。

有没有一种简单的方法可以用 VBA 来做到这一点？

Answer 1

我一直非常喜欢在单元格中存储数字。特别是在 Excel 中，数字值得存储，以便进行计算。那么，为什么不将数字 36(例如)放入单元格中，并使用

.NumberFormat = """RetValue ""00""Y"""

然后您仍然可以看到 RetValue 36Y，但实际上单元格的 .Value 只有 36，您可以进行计算。

不过，要对上表进行排序，没有什么特别需要考虑的。由于所有单元格都以相同的字符串开头，因此所有单元格都将正确排序。唯一的“问题”是 RetValue 4Y，因为它不是两位数。

我再次尝试正确格式化它。如果这不是一个选择，那么我会选择提供的任何解决方案 here提取数字，然后对其进行排序。在此过程中，我将(如上所述)仅将数字存储在 cell.Value 中，并将其周围的文本包装为 .NumberFormat 以允许将来进行更多计算(如有必要)。

之后，您可以使用以下解决方案对表格进行排序: Sort range without sorting it in a spreadsheet

它使您可以选择在将结果粘贴到工作表之前将其作为内存中的数组进行排序，或者使用 UDF(作为数组公式输入)。

_{future 注意事项:请不要发布图片，而是发布我们可以复制用于测试的格式化文本。}