VBA 为甚么只能配对一个?

On_fire

VBA 为甚么只能配对一个?

*

Sheet1是源数据, Range(“A30:D43”)是给的"配对区域数据"

配对区域中, 同行第1及第4列是一组数据

*

代码逻辑如下,

1.      根据AP列 的值( 行数是变量? )

2.      配对A列的30到43行的对应值

3.      输出D列对应值( 含格式 )到同行的AU列

*

文件中有代码, 但不能出正确结果…?

模拟答案Sheet1(2)

*

恳请大神, 老师出手帮忙...

蓝桥玄霜

对应的例子：

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object, Rng As Range
   
    Set dic = CreateObject("Scripting.Dictionary")
    Set Rng = Range("A30", Cells(Rows.Count, "D").End(3))
       ar = Rng
       With Rng
         For i = 1 To UBound(ar)
            dic(ar(i, 1)) = Array(ar(i, 4), .Cells(i, 4).Font.Color)
         Next i
       End With
      
    ar = Range("AP2", Cells(Rows.Count, "AP").End(3))
    Set Rng = [AU2].Resize(UBound(ar))
       With Rng
          .Font.ColorIndex = 0
          .Cells.Clear
          For i = 1 To UBound(ar)
             If dic.exists(ar(i, 1)) Then
                .Cells(i, 1) = dic(ar(i, 1))(0): .Cells(i, 1).Font.Color = dic(ar(i, 1))(1)
             End If
          Next i
       End With
   
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

On_fire

蓝桥玄霜 发表于 2023-2-2 18:10
对应的例子：

蓝版早上好,
谢谢帮忙…

On_fire

gwjkkkkk 发表于 2023-2-2 18:44
请楼主参考附件。。。

老师早上好,
谢谢您的帮忙…