[已解决]求大神帮忙写个宏命令,SUB

falcon9999

D列等于C列在右侧条件中相对应的名称,,

右侧对应的项目,要在宏中显示,不显示在表格的.要求:使用宏命令,

最佳答案

月排行榜 / 总排行榜

爱疯

2017-7-6 08:49

Sub test()
    Dim A, B, i, j
    A = Array("DG1=(01,53,58,41,40,44,52)", _
              "DG2=(43,49,45,46,42)", _
              "DG3=(16,28,80,19,55)", _
              "GM1=(21,23,93,32,33,22,95,68)", _
              "GM2=(05,81,06,61,31,03,10,11)", _
              "GM3=(02,24,47,54,13,08,94)", _
              "GM4=(14,12,20,15,17,18,07,09,70)", _
              "FR1=(56,38,57,39,48,77)", _
              "FR2=(75,86,76,91,79,72)")
    B = [c1].CurrentRegion
    For i = 2 To UBound(B)
        For j = 0 To UBound(A)
            If InStr(A(j), Format(B(i, 3), "00")) Then B(i, 4) = VBA.Split(A(j), "=")(0): Exit For
        Next j
    Next i
    [a1].Resize(i - 1, UBound(B, 2)) = B
End Sub

蓝色是变动过的

跳转到最佳答案楼层

爱疯

Sub test_1()
    Dim A, B, i, j
    A = Array("DG1=(01,53,58,41,40,44,52)", _
              "DG2=(43,49,45,46,42)", _
              "DG3=(16,28,80,19,55)", _
              "GM1=(21,23,93,32,33,22,95,68)", _
              "GM2=(05,81,06,61,31,03,10,11)", _
              "GM3=(02,24,47,54,13,08,94)", _
              "GM4=(14,12,20,15,17,18,07,09,70)", _
              "FR1=(56,38,57,39,48,77)", _
              "FR2=(75,86,76,91,79,72)")
    B = [c1].CurrentRegion
    For i = 2 To UBound(B)
        For j = 0 To UBound(A)
            If InStr(A(j), Format(B(i, 1), "00")) Then B(i, 2) = VBA.Split(A(j), "=")(0): Exit For
        Next j
    Next i
    [c1].Resize(i - 1, 2) = B
End Sub

爱疯

除非这些是中间得到的值，不然这样还不如单独建1个表，查询时用VLOOKUP就行了

这么写，只为图方便。

falcon9999

爱疯 发表于 2017-7-5 18:12
除非这些是中间得到的值，不然这样还不如单独建1个表，查询时用VLOOKUP就行了

这么写，只为图方便。

您说的对,C列的值,是在一个宏命令工作中,我只是想在D列,再引用那些值,A列到U列都有数值,您帮忙 写的命令单独运行没有问题,但我加入到表格中,就引用错误了.会将A列和B列的数据覆盖到C列和D列.      有办法解决吗?还有就是工作表是从第三行开始的.不是第二行.
麻烦您了.

爱疯

不清楚你说实际的情况，建议上传你说的不行的附件，更主要的是写清需求，如果其他朋友都好理解你的问题，自然会有人给出好的解决办法的。

falcon9999

爱疯 发表于 2017-7-5 21:56
不清楚你说实际的情况，建议上传你说的不行的附件，更主要的是写清需求，如果其他朋友都好理解你的问题，自 ...

附件,我上传了.麻烦您帮忙看下,我添加了一个按键,你可以试一下,

falcon9999

D列等于C列在右侧相对应的名称,,

右侧对应的项目,要在宏中显示,不显示在表格的.要求:使用宏命令,不要公式.

以下命令,总是会把A和B列的数据复制到C和D列.但是把A和B列的数据清空,以下公式,又运行正常,

请求大神帮忙 修改一下.

Sub test_1()

    DimA, B, i, j

    A =Array("DG1=(01,53,58,41,40,44,52)", _

             "DG2=(43,49,45,46,42)", _

             "DG3=(16,28,80,19,55)", _

             "GM1=(21,23,93,32,33,22,95,68)", _

             "GM2=(05,81,06,61,31,03,10,11)", _

             "GM3=(02,24,47,54,13,08,94)", _

             "GM4=(14,12,20,15,17,18,07,09,70)", _

             "FR1=(56,38,57,39,48,77)", _

             "FR2=(75,86,76,91,79,72)")

    B =[c1].CurrentRegion

    Fori = 2 To UBound(B)

       For j = 0 To UBound(A)

           If InStr(A(j), Format(B(i, 1), "00")) Then B(i, 2) =VBA.Split(A(j), "=")(0): Exit For

       Next j

    Nexti

   [c1].Resize(i - 1, 2) = B

End Sub

爱疯

Sub test()
    Dim A, B, i, j
    A = Array("DG1=(01,53,58,41,40,44,52)", _
              "DG2=(43,49,45,46,42)", _
              "DG3=(16,28,80,19,55)", _
              "GM1=(21,23,93,32,33,22,95,68)", _
              "GM2=(05,81,06,61,31,03,10,11)", _
              "GM3=(02,24,47,54,13,08,94)", _
              "GM4=(14,12,20,15,17,18,07,09,70)", _
              "FR1=(56,38,57,39,48,77)", _
              "FR2=(75,86,76,91,79,72)")
    B = [c1].CurrentRegion
    For i = 2 To UBound(B)
        For j = 0 To UBound(A)
            If InStr(A(j), Format(B(i, 3), "00")) Then B(i, 4) = VBA.Split(A(j), "=")(0): Exit For
        Next j
    Next i
    [a1].Resize(i - 1, UBound(B, 2)) = B
End Sub

蓝色是变动过的

falcon9999

爱疯 发表于 2017-7-6 08:49
Sub test()
    Dim A, B, i, j
    A = Array("DG1=(01,53,58,41,40,44,52)", _

非常感谢.完美的解决了我的问题,辛苦了.