Question

我需要清除第一个单元格和最后一个单元格之间的数据在Excel列中。我尝试了这段代码，但是它从整个工作表中删除了数据，我只需要特定的列。

// simplified, hardcoded F=Coeval
def calculatePi(iterations: Int)
               (random: () => Double): Double = {
  case class Iterations(total: Int, inCircle: Int)
  def step(data: Iterations) = Coeval {
    val x = random()
    val y = random()
    val isInCircle = (x * x + y * y) < 1.0
    val newTotal = data.total + 1
    val newInCircle = data.inCircle + (if (isInCircle) 1 else 0)
    if (newTotal >= iterations) Right(newInCircle.toDouble / newTotal.toDouble * 4.0)
    else Left(Iterations(newTotal, newInCircle))
  }
  Monad[Coeval].tailRecM(Iterations(0, 0))(step).value
}

Answer 1

这将清除A列中第一行和最后一行之间的内容。

Sub ClearRows()
    Dim lastRow As Long

    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:A" & lastRow - 1).ClearContents
End Sub

如何清除Excel列中第一行和最后一行之间的数据

1 个答案: