时间戳

首页 > 解决方案 > 将整个工作表乘以 2

excel - 将整个工作表乘以 2

问题描述

Sub Test()

    Dim rngData As Range

    Set rngData = ThisWorkbook.Worksheets.ActiveCell
    rngData = Evaluate(rngData.Address & "*2")
End Sub

我正在尝试将整个工作表乘以 2，但出现错误。任何帮助将不胜感激。

谢谢哈克

标签： excelvba

解决方案

试试这个：

Sub MultiplyByTwo()
    Dim r As Range, rng As Range

    On Error Resume Next
        Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub

    For Each r In rng
        r.Value = 2 * r.Value
    Next r
End Sub

它将工作表中的所有数字常量单元格乘以2。它将忽略：

  1. 空单元格
  2. 文本单元格
  3. 公式单元格

推荐阅读