将某个范围内的每个值乘以一个常量，但跳过空白单元格

Sub MultiplyRangeByConstant()
    Dim rng As Range
    Dim cell As Range
    Dim constantValue As Double
    
    ' 设置要操作的范围
    Set rng = Range("A1:A10") ' 可根据实际情况修改范围
    
    ' 设置常量值
    constantValue = 2 ' 可根据实际情况修改常量
    
    ' 遍历范围内的每个单元格
    For Each cell In rng
        ' 检查单元格是否为空白
        If Not IsEmpty(cell) Then
            ' 将单元格当前值乘以常量
            cell.Value = cell.Value * constantValue
        End If
    Next cell
End Sub