如果满足Excel VBA条件，则循环遍历列并将单元格乘以一个数字

Sub MultiplyCellsByNumber()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim multiplier As Double
    
    ' 设置工作表和要操作的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    Set rng = ws.Range("A1:A10") ' 将"A1:A10"替换为实际的要操作的范围
    
    ' 设置乘数
    multiplier = 2 ' 将2替换为实际的乘数
    
    ' 循环遍历范围中的每个单元格并进行乘法运算
    For Each cell In rng
        If cell.Value <> "" Then ' 检查单元格是否为空
            cell.Value = cell.Value * multiplier ' 将单元格的值乘以乘数
        End If
    Next cell
End Sub