Question

所以我的脚本出现问题，该脚本将公式填充到列的最后一行。除了进入if函数外，它大部分都起作用。

Sub vlookups()
'
' vlookups Macro
'

'
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("C2:C" & LastRow).Formula = "=VLOOKUP($A2,'Refined Raw'!$A:$AH,2,false)"
    Range("E2:E" & LastRow).Formula = "=VLOOKUP($A2,'Refined Raw'!$A:$AH,3,false)"
    Range("G2:G" & LastRow).Formula = "=VLOOKUP($A2,'Refined Raw'!$A:$AH,4,false)"
    Range("I2:I" & LastRow).Formula = "=VLOOKUP($A2,'Refined Raw'!$A:$AH,5,false)"
    Range("K2:K" & LastRow).Formula = "=IF(VLOOKUP($A2,'Refined Raw'!$A:$AH,6,false)=0,'',VLOOKUP($A2,'Refined Raw'!$A:$AH,6,false))"


End Sub

这在前四个Range vlookups上运行良好，但是当它使用IF（VLOOKUP）到达最后一个时，它显示一个错误。我不太熟悉VBA，所以我不确定是什么原因导致的问题。

有帮助吗？

Answer 1

您需要对公式中的引号加倍：

Example Tuple = (('Foo', 'Bar', 'Help', 'Me')
Element1_count = 0
for line in file
    Element1_count = line.count(Element1)
    if Element1_count == 1:
        Element1_count = Element1_count + 1
if Element1 == 0:
    print ('Warning %s not present'%Element1)

#iterate through each tuple element

应用程序定义或对象定义的错误仅在If Vlookup语句中显示

1 个答案: