如果相邻单元格不为空，则复制公式的宏

Question

好的伙计们，我在下面有这个简单的表格，我试图计算G列中的宏vba公式，只要列c有一个值。电子表格中的所有信息都已从之前的宏中提取。这就是我的......

[ Sub Macro1（） ＆＃39; ＆＃39; Macro1宏 ＆＃39;

Dim x As Long

x = CLng((d2 + e2) / c2)


For Each r In Intersect(ActiveSheet.UsedRange, Range("C:C"))
    If r.Value <> "" Then
     r.Offset(1, 5).Value = x

    End If
Next r

End Sub

Answer 1

尝试下面的代码，它将遍历C列（直到最后一行带有值），并使用G列中该行的相关参数计算您的公式。

注意：您的(D+E)/C公式会为您提供较小的值，因为C的值较高。如果这是您要使用的公式，则需要将输出从Long更改为Double以显示0.之后的数字。

代码

Option Explicit

Sub Macro1()

' Macro1    
Dim r As Range
Dim LastRow As Long

' modify "Sheet1" to your sheet's name
With Sheets("Sheet1")
    ' find last row with data in Column C ("Salary")
    LastRow = .Cells(.rows.Count, "C").End(xlUp).Row

    For Each r In .Range("C2:C" & LastRow)
        If r.Value <> "" Then
            r.Offset(0, 4).Value = CDbl((Range("D" & r.Row).Value + Range("E" & r.Row).Value) / r.Value)
        End If
    Next r        
End With

End Sub

Answer 2

试试这个：

var iframe = document.createElement('iframe')
var url = URL.createObjectURL(new Blob(['<\script>window.onhashchange = 
() => alert("wow")<\/script>'], {type: 'text/html'}))
iframe.src = url
document.body.appendChild(iframe)
iframe.src += '#bla' //nothing happens :(
iframe.src.replace(/#.*$/, '#blop') //even less happens

计算C列中的行，如果不为空，则填写可以更改为公式的连接公式。

Answer 3

您将单元格称为范围（“D2”）等，而不仅仅是d2。