有什么方法改变VBA，修改数据源的位置。

cdscds0501

各位大神，有什么方法能把使用在sheet1的数据源，改成在sheet2中？如何修改VBA？
Sub aaa()

Dim I As Integer, J As Integer

Application.ScreenUpdating = False

For I = 1 To [C65536].End(3).Row()

    For J = 1 To [A65536].End(3).Row()

        If Cells(J, 1) = Cells(I, 3) Then

            Cells(I, 4) = Cells(J, 2)

    Exit For

        Else

            Cells(I, 4) = ""

        End If

    Next

Next

Application.ScreenUpdating = True

End Sub

盼盼198310

不要把代码写在sheet的代码块中

taller

cdscds0501

盼盼198310 发表于 2022-1-25 08:38
不要把代码写在sheet的代码块中

谢谢，数据源仍然是在本页的，想修改的想法是：sheet1中的C列、D列的内容数据来源于sheet2中的A列、B列中的内容。

cdscds0501

taller 发表于 2022-1-25 09:10

谢谢，数据源仍然是在本页的，想修改的想法是：sheet1中的C列、D列的内容数据来源于sheet2中的A列、B列中的内容。

cdscds0501

使用这个VBA，数据可以匹配一部分。DN开头的数据不能匹配。不懂是什么原因？各位大神帮忙看看什么问题！
如下：Sub aaa()

Dim i As Integer, j As Integer

Application.ScreenUpdating = False
'arr = Sheet2.Range("a1").CurrentRegion
With Sheets("sheet2")
'With Application.Sheets("Sheet2")
For i = 1 To [C65536].End(3).Row()

    For j = 1 To [A65536].End(3).Row()

        If Sheets("Sheet2").Cells(j, 1) = Cells(i, 3) Then

            Cells(i, 6) = Sheets("Sheet2").Cells(j, 2)
            Cells(i, 7) = Sheets("Sheet2").Cells(j, 3)
    Exit For

        Else

            'Cells(i, 4) = ""

        End If

    Next

Next
End With
Application.ScreenUpdating = True

End Sub

cdscds0501

，这个没有什么作用了

gwjkkkkk

cdscds0501 发表于 2023-6-17 18:16
，这个没有什么作用了

这里改一下。。。