Excel-VBA，用于循环语法，放置“ for”和“ next x”

Question

Sub test1()
Dim Str As String
Dim Search As String
Dim X As Long
Dim Y As Long


X = 2
For Y = 2 To 6

Str = Worksheets("sheet1").Cells(X, 5).Value
Search = Worksheets("FDSA").Cells(Y, 5).Value


    If Worksheets("sheet1").Cells(X, 4).Value = Worksheets("FDSA").Cells(Y, 3).Value And InStr(Search, Str) > 0 Then
        Worksheets("sheet1").Cells(X, 6).Value = "ok"
    Else

    End If
 Next Y


End Sub

经过大约一个星期的学习并失败了Excel VBA，我认为我已经很接近我想要的工作了。 我的last for循环只需要一点帮助。

上面的代码正是我想要的。 我用一个值对X进行了硬编码以对其进行调试。 现在，我需要循环X以遍历该行中的每个单元格并执行相同的操作。

Answer 1

您可以这样做，在循环内循环。

Sub test1()

Dim Str As String
Dim Search As String
Dim X As Long
Dim Y As Long


lastcolumn = Sheets("Sheet1").Range("XFD1").End(xlToLeft).Column
'I don't how you data looks like... If there is always same amount of columns you can hard-code it... or calculate the last one like this..



For Y = 2 To 6

For X = 2 To lastcolumn 'start of second loop



Str = Worksheets("sheet1").Cells(X, 5).Value
Search = Worksheets("FDSA").Cells(Y, 5).Value

If Worksheets("sheet1").Cells(X, 4).Value = Worksheets("FDSA").Cells(Y, 3).Value And InStr(Search, Str) > 0 Then
    Worksheets("sheet1").Cells(X, 6).Value = "ok"
Else

End If

Next X

Next Y

End Sub

Answer 2

Sub test1（）Dim Str As String Dim搜索As String Dim X As Long Dim Y As Long

对于X = 2到92 Str = Worksheets（“ sheet1”）。Cells（X，5）.Value

If Worksheets("sheet1").Cells(X, 6).Value = "" Then

    For Y = 2 To 96
    Search = Worksheets("FDSA").Cells(Y, 5).Value

            If Worksheets("sheet1").Cells(X, 4).Value = Worksheets("FDSA").Cells(Y, 3).Value And InStr(Search, Str) > 0 Then
                Worksheets("sheet1").Cells(X, 6).Value = "row" & Y
                Worksheets("Sheet1").Cells(X, 6).Interior.Color = RGB(0, 200, 0)

            Else

            End If

    Next Y

Else

End If

    If Y = 97 And Worksheets("sheet1").Cells(X, 6).Value = "" Then
    Worksheets("sheet1").Cells(X, 6).Value = "N/A"
    Worksheets("sheet1").Cells(X, 6).Interior.Color = RGB(200, 0, 0)
    End If

下一个X

结束子

想通了，谢谢你：