我正在尝试编写一个返回多个值的宏 [英] I am trying to write a macro which returns multiple values

问题描述

在此行出现错误

Finalrow = Cells(Row.Count, 1).End(X1UP).Row

错误是

对象所需的运行时错误424.

Object required run time error 424.

下面是代码

Sub MyVlookup()
    Dim r As Long, C As Long, Col_index As Long

    Finalrow = Cells(Row.Count, 1).End(X1UP).Row
    Col_index = 2

    For I = 2 To Finalrow
        For C = 2 To 4
            Cells(I, C).Value = Application.VLookup(Cells(I, 2), Range("B2:G2"), Col_index, False)
            Col_index = Col_index + 1
        Next C
    Next I
End Sub

推荐答案

 Finalrow = Cells(Rows.Count, 1).End(X1UP).Row

错误发生在 X1UP 上，我看到了您尝试执行的操作，但实际上是 XlUp ，因此，是L而不是1 :)它应该与

The error is on X1UP, I see what you tried to do, but it's actually XlUp, so, an L, not a 1 :) It should work with

 Finalrow = Cells(Rows.Count, 1).End(XlUp).Row

这篇关于我正在尝试编写一个返回多个值的宏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！