Excel VBA，用于循环语法，放置；至于；及；下一个x“；

经过大约一周的学习和Excel VBA的失败，我想我已经非常接近我想要它做的事情了。我只是需要一些帮助来完成我的最后一个for循环

---

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

您可以这样做，在循环中循环

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

子测试1（） 作为字符串的Dim Str 以字符串形式搜索 暗X等长 长得一样暗

对于X=2到92 Str=工作表（“sheet1”）。单元格（X，5）。值

下一个X

端接头

---

不管怎样，我都明白了：）

非常感谢数据生命，这是我代码的下一步。了解如何为两列合并端到端。我现在已经发布了我自己的答案，并将进行端到端的工作。先生，谢谢你的先发制人。

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

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