Question

我目前正在处理电子表格，并且希望利用vlookup，但希望通过VBA进行操作。

我附上了两张工作表的屏幕截图，以便你们可以直观地看到我正在尝试做的事情。

基本上，我试图从工作表IW38列K中拉出“优先级”，并将其放置在工作表“ IW47”列R中，但要使用订单号作为匹配信息。订单号在工作表IW47的“ E”列和工作表IW47的“ A”列中。

以下是我尝试使用的当前宏：

Sub PriorityNUM()

'Variables----------------------------------------

'Defining WorkBook
Dim wb As Workbook

'Defining Sheets----------------------------------------------
'Working Asset Sheet
Dim IW47ws As Worksheet
'Sheet for Parts List Submission
Dim IW38ws As Worksheet

'Setting Worksheets
Set IW47ws = Sheets("IW47")
Set IW38ws = Sheets("IW38")

'Defigning Ranges within Worksheets----------------------------
Dim IW38rng As Range

'Setting Ranges within Submit Worksheets-------------------
Set IW38rng = IW38ws.Range("A:Z")

'Defining the Last Cell in Each Task Column----------------
Dim IW47last As Long

'Assigning Values to Last Row Variables
IW47last = IW47ws.Range("E" & Rows.Count).End(xlUp).Row

'Updating Drawings Identified---------------------------------------------------
Dim PriorityCell As Range
Dim PriorityLookup As String

For Each PriorityCell In IW47ws.Range("R:R")
If IsEmpty(DICell.Offset(0, -13).Value) Then
Exit For
End If
On Error Resume Next
PriorityLookup = WorksheetFunction.VLookup(PriorityCell.Offset(0, -13), IW38rng, 11, False)

If Err = 0 Then
PriorityCell.Value = PriorityLookup
Else
Err.Clear
End If
On Error GoTo 0
Next PriorityCell

End Sub

任何帮助将不胜感激。

谢谢，胡安

Answer 1

可读性

OP，您的代码可以如下重组。我还使用了一些简短的变量来简化操作。理想情况下，您的变量名应简洁明了（易于阅读且键入简短）。在进行故障排除时，可读性大有帮助。

一旦您看到此内容，请告诉我，以便我删除

Sub PNum()

Dim ws47 As Worksheet: Set ws47 = ThisWorkbook.Sheets("IW47")
Dim ws38 As Worksheet: Set ws38 = ThisWorkbook.Sheets("IW38")

Dim Arr As Range: Set Arr = ws38.Range("A:K")

Dim LR As Long, MyCell As Range, Priority As String

LR = ws47.Range("E" & ws47.Rows.Count).End(xlUp).Row

For Each MyCell In ws47.Range("R2:R" & LR)
    If IsEmpty(MyCell.Offset(-13)) Then Exit Sub

    On Error Resume Next
        Priority = WorksheetFunction.VLookup(MyCell.Offset(, -13), Arr, 11, 0)

        If Err = 0 Then
            MyCell = Priority
        Else
            Err.Clear
        End If
    On Error GoTo 0

Next MyCell

End Sub

在VBA中使用VLookup

1 个答案:

可读性