Sub Macro1()
　　r = 11　'起点の行
　　Do While Cells(r, "E") <> ""
　　　　If Cells(r, "E") < 0 Then
　　　　　　Cells(r, "E") = -Cells(r, "E")
　　　　　　For c = Asc("G") To Asc("M")
　　　　　　　　Cells(r, Ch r(c)) = -Cells(r, Ch r(c))
　　　　　　Next c
　　　　End If
　　　　r = r + 1
　　Loop
End Sub