excel vba 选择负范围

标签 excel vba range selection

  1. 排序“B 列”<== 使用以下代码完成:
' sorts %change from cell B2 to the end of the line
Range("B2", Range("B2").End(xlDown)).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo

数据:

<表类="s-表"> <头> A B C <正文> 1 8 2 2 -2 4 3 3 -1 4 -5 8 5 0 10 6 -33 65

输出:

<表类="s-表"> <头> A B C <正文> 6 -33 65 4 -5 8 2 -2 4 5 0 10 3 3 -1 1 8 2
  1. 仅选择负范围单元格

现在光标将位于值为 -33 的单元格(单元格 B2)中。 我需要选择值为 -33、-5 和 -2 的范围。有没有一种快速的方法(内置公式)可以在不评估每个单元格值的情况下识别这些范围?

注意:获取的数据是动态的,行数不固定。

最佳答案

在排序列中选择负值

Option Explicit

Sub Test()
    With ActiveSheet.Range("A1").CurrentRegion
        .Sort Key1:=.Columns(2), Order1:=xlAscending, Header:=xlYes
        With .Columns(2).Resize(.Rows.Count - 1).Offset(1)
            On Error Resume Next
            .Resize(Application.CountIf(.Cells, "<0")).Select
            On Error GoTo 0
        End With
    End With
End Sub

关于excel vba 选择负范围,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/71747881/

相关文章:

javascript - 获取范围 slider 值并转换为二进制

MySQL选择分组整数的范围

excel - 为 Shapes 制作真正的公式、条件格式和控制提示

vb.net - 将 Excel 单元格对齐到中心 VB - xlCenter 未声明

excel - 如何克服Excel中超链接的限制?

VBA 将公式(在多行中)拖到使用的最后一行

VBA,Excel - 比较多个条件的行,复制并在新工作表中添加结果

javascript - 未捕获的 DOMException : Failed to execute 'setStart' on 'Range' : The offset is larger than the node's length

java - Webdriver selenium,java.lang.NullPointerException,尝试查找 Webelement 时

excel - AppleScript:设置 Microsoft Excel 单元格的背景颜色