1

更新：公式出现了一个新问题，由于公式中的文本，它无法正常工作，公式（取自 excel）应该是， 

=IF(D2<=0,"No Sales Price",E2/D2)

我已经尝试了尽可能多的组合，但“无销售价格”导致引号出现问题。我目前的代码是 

For i = 2 To LastRowG   
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & "(No Sales Price)",  & "(E" & i & "/D" & i & "))"    
Next i

环顾四周，但没有看到任何解决问题的方法，任何启示都会得到最大的赞赏

编辑：这是通过插入以下行来解决的； 

For i = 2 To LastRowG  
Range("Q" & i).Formula = "=IF(D" & i & "<=0," & Chr(34) & "No Sales Price" & Chr(34) & "," & "E" & i & "/" & "D" & i & ")"
Next i

Chr(34) 插入与该数字相关的 ASCII 字符，恰好是“。程序不会将其读取为已键入引号并继续正确读取代码行，然后将“否销售价格”在公式中正确。

它将按照公式的预期输出行，并且 Chr(34) 就像写““无销售价格””而没有不可避免的“预期语句结束”错误

4

1 回答 1

1

我的建议会导致这样的结果：

LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Cells(LastRow + 1, 3).Formula = "=SUM(C1:C" & LastRow & ")"

额外 1

是否可以使用此公式在左侧单元格中输入单词 Total？

Range("B" & LastRow + 1) = "Total"

额外2

还有一个只是为了推动我的运气，如何将公式一直复制到最后一个单元格的列中？=G2*57.5 copied until the last row in I

LastRowG = Cells(Rows.Count, "G").End(xlUp).Row

For i = 2 To LastRowG
    Range("I" & i).Value = "=G" & i & "*57.5"
Next i
于 2012-10-31T11:14:06.077 回答