首頁  >  文章  >  軟體教學  >  Excel VBA迴圈遍歷列

Excel VBA迴圈遍歷列

王林
王林轉載
2024-01-15 23:24:25666瀏覽

excel vba列数循环

excel vba列數循環 vlookup

哦。檢查了我以前的程式碼。估計可能是你的iserror和與vlookup後面結果的錯誤造成的! ! !

因為vlookup產生的後面有公式存在,而提供給iserror的參數錯誤,導致的。

我當初就是再把它轉成數值格式的,然後再應用iserror,後面就ok了。

我的程式碼如下:

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) : Exit Sub

Next

所以,你只要把程式碼分開開,然後轉換成數值就ok了。

歡迎假如軟體改變生活群,大家一起努力,提升工作效率。

VBA vlookup應用

Public Sub aaaa()

Dim x As String, w As String

#Dim z As Long

x = "Y"

#w = "N"

#For z = 2 To 10000

If Cells(z, 1) "" Then

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

Cells(z, 2).Value = Cells(z, 2).Value

End If

Next

End Sub

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

vlookup找不到資料時會回傳錯誤值,所以不能直接使用

如果要用vlookup,請看下面的程式碼:

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

#Public Sub dsadsa()

Dim x As String, w As String

#Dim z As Long, u As Variant

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

x = "Y"

#w = "N"

#For z = 2 To 6

If Cells(z, 1) "" Then

On Error Resume Next

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

If Err.Number = 0 Then

Cells(z, 2) = x

Else

Cells(z, 2) = w

End If

Err.Clear

End If

Next

###End Sub###

以上是Excel VBA迴圈遍歷列的詳細內容。更多資訊請關注PHP中文網其他相關文章!

陳述:
本文轉載於:docexcel.net。如有侵權,請聯絡admin@php.cn刪除