excelmacro https://blog.hatena.ne.jp/excelmacro/ excelmacro’s diary https://excelmacro.hateblo.jp/ Sub 工種合計まるめ() Dim b As Long Dim i As Long Dim k As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) <> "" Then Cells(i, 4) = WorksheetFunction.Sum(Range("F" & i, "J" & i)) b = Range("B" & i).Value k = -(Log(b) / Log(10)) Cells(i, 3) = WorksheetFunction.Round(Range("D" & i), k) End… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fexcelmacro.hateblo.jp%2Fentry%2F2021%2F07%2F19%2F014033" title="エクセルマクロ　合計まるめ - excelmacro’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2021-07-19 01:40:33 rich https://excelmacro.hateblo.jp/entry/2021/07/19/014033 1.0 100%