2

VBA の VLOOKUP で問題が発生しています。私が使用しているコードの例を次に示します。

Sub Macro15()
'
' Macro15 Macro
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B" & LR).FormulaR1C1 = _
"=VLOOKUP(RC[-1],'https://internal_sharepoint_address
    /[Vendor_Information.xlsx]Sheet1'!R3C3:R150C18,4,FALSE)"
Range("C1:C" & LR).FormulaR1C1 = _
    "=VLOOKUP(RC[-2],'https://internal_sharepoint_address
/[Vendor_Information.xlsx]Sheet1'!R3C3:R150C18,5,FALSE)"
With Range("B1:C" & LR)
.Value = .Value
End With
End Sub

問題は、列 B と C (VLOOKUP 式) の値が #N/A の値を返すことです。

ただし、数式を値に変換する前にコードを停止すると ("With Range("B1:C" & LR)" 行)、VLOOKUP 数式は正しい値を返します。

また奇妙です - 列 B と C の内容をクリアして上記のコードを再実行すると、値は正常に返されます。ただし、VBA に 2 番目のサイクルを追加しようとしても、機能しません。

誰でも提供できる知恵は大きな助けになります。私は長い間これに固執してきました。

ありがとう、デビッド

4

1 に答える 1

1

値を置き換える前に、計算サイクルを実行するステップを追加する必要があるでしょう。

Application.Calculate

コメントから編集: SharePoint サイトのリンクされたワークブックからルックアップ データを取得するには、しばらく時間がかかると思います。たぶん、いくつかの遅延ループを追加しますか? 2 つの別個のマクロ (数式で終わるマクロと、値の貼り付けで始まるマクロ) を作成し、その間に一時停止して別々に実行できますか?

于 2010-11-15T18:55:33.400 に答える