计算列的每个单元格并放入另一列代码vba

Question

我需要下面的工作表代码：

我想在“数量产品”栏中计算每个单元格（（G11 /总计：H4）* 100），并在“计算缺陷”列中输入。

Answer 1

您可以使用此代码。 只需根据您的需要更改常量。

Const SourceColumn As String = "G"
Const DestColumn As String = "L"
Const TotalCell As String = "H4"
Const StartRow As Integer = 11
Dim i As Long
i = StartRow
For i = StartRow To UsedRange.Cells(UsedRange.Cells.Count).Row
    Range(DestColumn & i).Clear
Next i
While Range(SourceColumn & i).Value <> vbNullString
    Range(DestColumn & i).Formula = "=(" & SourceColumn & i & "/" & TotalCell & ")*100"
    i = i + 1
Wend