Question

我很难将我的公式变成VBA

这是公式：

=INDEX('Raw G'!1:1048576,MATCH(N5,INDIRECT("'Raw G'!" & ToColletter(MATCH(F4,'Raw G'!2:2,0))&":"&ToColletter(MATCH(F4,'Raw G'!2:2,0))),0),MATCH("Grand Total*",'Raw G'!3:3,0)+1)

我需要它按照以下一组标准应用于L行的每个单元格：

Sub csku()

With Application
    Set SrchRng = .Range(.Cells(4, "N"), .Cells(Rows.Count, "N").End(xlUp))

    For Each cel In SrchRng
        If cel.Value2 > 0 Then
            cel.Offset(0, -2).Value = 

End With

End Sub

但是，我不太清楚如何做到这一点，因为它在公式中包含多个公式。

此外，我使用应用程序将数字转换为列字母：

Public Function ToColletter(Collet)
ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

非常感谢。

Answer 1

对您的公式使用INDEX而不是INDIRECT可能更好。

=if(n4>0, index('Raw G'!A:XFC, match(n5, index('Raw G'!A:XFC, 0, match(f4, 'Raw G'!$2:$2, 0)), 0), match("Grand Total*", 'Raw G'!$3:$3, 0)+1), text(,))

然后将其应用于每个＆＃39;每个单元格下行L，并使用以下一组标准＆＃39; 。

Sub csku()
    dim f as string

    With worksheets("sheet1")
        with .Range(.Cells(4, "L"), .Cells(Rows.Count, "N").End(xlUp).Offset(0, -2))
                       'double-up quotes within a quoted string
            .formula = "=if(n4>0, index('Raw G'!A:XFC, match(n5, index('Raw G'!A:XFC, 0, match(f4, 'Raw G'!$2:$2, 0)), 0), match(""Grand Total*"", 'Raw G'!$3:$3, 0)+1), text(,))"
            'optionally convert formula results to values
            '.value = .value
        end with
    End With
End Sub

VBA中的间接匹配公式

1 个答案: