test已刪文
Sub Subtract256AndRowFirst()
Dim cell As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 請確認你的工作表名稱是Sheet1，否則
修改這裡
Dim rowFirstValue As Double
For Each cell In ws.Range("C3:I66")
' 獲取該行的第一個儲存格的值
rowFirstValue = ws.Cells(cell.Row, 1).Value
If IsNumeric(cell.Value) And cell.Value <> "" Then
cell.Value = 256 - cell.Value - rowFirstValue
End If
Next cell
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.141.252.228 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Test/M.1716520002.A.B4C.html
討論串 (同標題文章)