> 소프트웨어 튜토리얼 > 사무용 소프트웨어 > 열을 통한 Excel VBA 루프

열을 통한 Excel VBA 루프

王林
풀어 주다: 2024-01-15 23:24:25
앞으로
678명이 탐색했습니다.

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 중국어 웹사이트의 기타 관련 기사를 참조하세요!

원천:docexcel.net
본 웹사이트의 성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.
인기 튜토리얼
더>
최신 다운로드
더>
웹 효과
웹사이트 소스 코드
웹사이트 자료
프론트엔드 템플릿