Sheets("Sheet1") Dim cell As Range Dim a, b, x, y As Double x = ActiveWB.Range("A1").Value y = ActiveWB.Range("A2").Value a = x / y b = x - a For Each cell ...
確定! 回上一頁