Excel VBA の列をループする

Excel VBA 列番号ループ vlookup ＃＃＃おお。以前のコードを確認しました。 iserror と vlookup の結果のエラーが原因である可能性があると推定されています。 ！ ！

vlookup 生成の背後に式があり、iserror に指定されたパラメーターが間違っているため、これが原因で発生します。

数値形式に変換して iserror を適用したところ、問題ありませんでした。

私のコードは次のとおりです:

For i = 2 To module_number - 1

Range(＂C＂ & i).Select: ActiveCell.Value = ActiveCell.Value: If IsError(ActiveCell.Value) then ActiveCell.Value = 0: Module_wrong = 1: iublink = Cells(ActiveCell.Row, 1) : 終了サブ

＃＃＃次＃＃＃

つまり、コードを分割して数値に変換するだけです。

「ソフトウェアが人生を変えるなら」グループへようこそ。一緒に作業効率を向上させましょう。

VBA vlookup アプリケーション

パブリックサブ aaaa()

Dim x を文字列として、w を文字列として

Dim z As Long

x = "Y"

w = ＂N＂

z = 2から10000の場合

If Cells(z, 1) ＂＂ then

Cells(z, 2).FormulaR1C1 = ＂=IF(ISNUMBER(VLOOKUP(RC[-1],C[1],1,0)),＂＂＂ & x & ＂＂＂,＂＂＂ & w & ＂＂＂)＂

セル(z, 2).値 = セル(z, 2).値

終了の場合

＃＃＃次＃＃＃

エンドサブ

----------------

vlookup はデータが見つからない場合にエラー値を返すため、直接使用することはできません

vlookup を使用する必要がある場合は、次のコードを参照してください:

-------------------------------------

パブリックサブ dsadsa()

Dim x を文字列として、w を文字列として

Dim z As Long、u As Variant

Dim o As Range: Set o = Worksheets(＂Sheet1＂).Range(＂c:c＂)

x = "Y"

w = ＂N＂

z = 2 ～ 6の場合

If Cells(z, 1) ＂＂ then

エラー時は次へ再開

u = Application.WorksheetFunction.VLookup(Sheets(＂sheet1＂).Cells(z, 1), o, 1, False)

If Err.Number = 0 then

セル(z, 2) = x

＃＃＃それ以外＃＃＃

セル(z, 2) = w

終了の場合

エラークリア

終了の場合

＃＃＃次＃＃＃

エンドサブ

以上がExcel VBA の列をループするの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。