vba 刷選前兩位為60的數字

你可以使用 VBA 的 Left 函数和 Mid 函数来实现这个需求。以下是一个示例代码：

Sub filter_numbers()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取数据的最后一行
    
    For i = 1 To lastRow
        If Left(Cells(i, 1).Value, 2) = "60" Then '判断前两位是否为“60”
            Cells(i, 1).EntireRow.Hidden = False '如果符合条件，则显示该行数据
        Else
            Cells(i, 1).EntireRow.Hidden = True '如果不符合条件，则隐藏该行数据
        End If
    Next i
End Sub

这段代码将会扫描整个 A 列，如果该行数据的第一列（即 A 列）的前两位是 "60"，则显示该行数据，否则隐藏该行数据。

相关问题

VBA筛选前兩位為60的數字

你可以使用 VBA 中的 Left 函数来获取一个字符串的前几个字符，然后使用 If 语句来判断是否为 60。以下是一个示例代码：

Sub FilterNumbers()
    Dim cell As Range
    For Each cell In Range("A1:A10") ' 假设要筛选的数据在 A1:A10 中
        If Left(cell.Value, 2) = "60" Then ' 判断前两位是否为 "60"
            ' 如果是，则执行你想要的操作，比如将该行标记为红色或将其复制到另一个位置等等
            cell.EntireRow.Font.Color = vbRed ' 将该行字体颜色标记为红色
        End If
    Next cell
End Sub

你需要根据实际情况修改代码中的范围和操作。

vba保留小数点后两位

在 VBA 中保留小数点后两位，可以使用 Format 函数。例如，假设你有一个变量 num，它代表一个浮点数，你可以使用以下代码将其格式化为保留两位小数的字符串：

Dim num As Double
num = 3.1415926
Dim formattedNum As String
formattedNum = Format(num, "0.00")

这样，formattedNum 的值就是 "3.14"。其中，"0.00" 表示保留两位小数，"#" 表示可选的数字，如果该位上没有数字则不显示。你也可以使用其他的格式字符串来达到不同的效果。