열을 통한 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 As String, w As String

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 As String, w As String

Dim z As Long, u As Variant

Dim o 범위: 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)

Err.Number = 0이면

셀(z, 2) = x

그밖에

셀(z, 2) = w

끝나면

Err.Clear

끝나면

다음

끝 서브

위 내용은 열을 통한 Excel VBA 루프의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!