返回列表 上一主題 發帖

如何尋找指定位置後計算公式

回復 1# enoch
  1. Sub ex()
  2. Dim Sh As Worksheet, A As Range
  3. For Each Sh In Sheets
  4. With Sh
  5.   Set A = .Columns("C:E").Find("Total")
  6.   If Not A Is Nothing Then .Cells(A.Row, "F") = "=SUM(R2C:R[-1]C)"
  7. End With
  8. Next
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題