[已解决]怎么换成代码

mmc998 · 发表于 2015-7-21 07:00

本帖最后由 mmc998 于 2015-7-21 22:12 编辑

工作簿2.rar (65.81 KB, 下载次数: 11)

baksy · 发表于 2015-7-21 07:36

附件

mmc998 · 发表于 2015-7-21 08:03

baksy 发表于 2015-7-21 07:36
附件

能用vba吗

qh8600 · 发表于 2015-7-21 08:48

mmc998 发表于 2015-7-21 08:03
能用vba吗

范围都没有，别人怎么看的懂

爱疯 · 发表于 2015-7-21 08:54

Sub Click()
Dim A, B, C, i, j, k
A = Range("A4").CurrentRegion
B = Range("L1").CurrentRegion
ReDim C(1 To UBound(A), 1 To UBound(B, 2))

For i = 2 To UBound(C)
      For j = 1 To UBound(C, 2)
         C(i, j) = C(i - 1, j) + 1
         For k = 1 To UBound(A, 2)
            If A(i, k) = B(1, j) Then C(i, j) = 0: Exit For
         Next k
      Next j
Next i
[L4].Resize(i - 1, j - 1) = C
End Sub

3.rar (75.18 KB, 下载次数: 13)

		自动登录	找回密码
密码			注册