[已解决]替换数据

mmc998

Book18.rar (35.09 KB, 下载次数: 10)

2015-12-3 20:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-3 20:59

Sub Click()
    Dim A, B, C, i, j
    A = Range("a4:a" & Range("a65536").End(3).Row)
    B = Range("d1").CurrentRegion
    ReDim C(Application.Min(B) To Application.Max(B))

    For j = 1 To UBound(B, 2)
        C(B(1, j)) = B(2, j)
    Next j
    For i = 1 To UBound(A)
        A(i, 1) = C(A(i, 1))
    Next i
    [b4].Resize(UBound(A)) = A
End Sub

Book18.rar (66.42 KB, 下载次数: 19)

2015-12-3 20:59 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim A, B, C, i, j
    A = Range("a4:a" & Range("a65536").End(3).Row)
    B = Range("d1").CurrentRegion
    ReDim C(Application.Min(B) To Application.Max(B))

    For j = 1 To UBound(B, 2)
        C(B(1, j)) = B(2, j)
    Next j
    For i = 1 To UBound(A)
        A(i, 1) = C(A(i, 1))
    Next i
    [b4].Resize(UBound(A)) = A
End Sub

Book18.rar (66.42 KB, 下载次数: 19)

2015-12-3 20:59 上传

点击文件名下载附件