[已解决]当工作表A某3列等于工作表B某3列时，工作表A的某1列等于工作表B的某1列

JOB007

su45 发表于 2014-4-21 09:41
这样就行了！

附件你好，我就是想要这样的效果，但为什么把VBA代入这里就显示下越标界，是数组的问题吗？ 下越标界.rar (10.28 KB, 下载次数: 2)

2014-4-22 01:10 上传

点击文件名下载附件
Sub suaa()
With Sheets("14缝挑工价")
    a = .Range("A65536").End(xlUp).Row
    rng1 = .Range("A3:k" & a)
End With
b = Range("A65536").End(xlUp).Row
rng2 = Range("A3:j" & b)
ReDim arr(1 To b - 1, 1 To 1)
For i = 1 To b - 1
    For j = 1 To a - 1
        If rng2(i, 2) & rng2(i, 6) & rng2(i, 7) = rng1(j, 2) & rng1(j, 5) & rng1(j, 11) Then
            arr(i, 1) = rng1(j, 7)
        End If
    Next
Next
For i = 3 To b
    If Cells(i, 9) = "" Then Cells(i, 9) = arr(i - 1, 1)
Next
'Range("I2:I" & b - 1) = arr
End Sub

su45

VBA代码是针对你原文件格式的，修改格式或字段位置改变都要对代码进行修改的。
下面是根据此文件修改的：

下越标界.zip (11.26 KB, 下载次数: 7)

2014-4-22 10:00 上传

点击文件名下载附件

JOB007

su45 发表于 2014-4-22 10:00
VBA代码是针对你原文件格式的，修改格式或字段位置改变都要对代码进行修改的。
下面是根据此文件修改的：
...

非常感谢啊，就是想要这样的，谢谢你

su45

只可惜最佳已送出了！

JOB007

su45 发表于 2014-4-22 14:01
只可惜最佳已送出了！

是啊，下次一定给你