如何一一对应排列？

sampsonpon

如图，如何这里一键得到：kl8表里A3:V排列值(例如第一行值)

蓝桥玄霜

更新的例子：

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
     With Sheets(1)
        br = Range(.[B3], .Cells(Rows.Count, "AP").End(xlUp)).Value
    End With
    With Range("A2:CD3")
        .Offset(1, 2).ClearContents
        ar = .Value
        For i = 1 To UBound(br)
            If br(i, 1) = [B3].Value Then
                For j = 2 To UBound(br, 2)
                    ar(2, br(i, j) + 2) = br(i, j)
                Next j
                Exit For
            End If
        Next i
       .Value = ar
    End With
   
    Beep
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
     With Sheets(1)
        br = Range(.[B3], .Cells(Rows.Count, "AP").End(xlUp)).Value
    End With
    With Range("A2:CD3")
        .Offset(1, 2).ClearContents
        ar = .Value
        For i = 1 To UBound(br)
            If br(i, 1) = [B3].Value Then
                For j = 2 To UBound(br, 2)
                    ar(2, br(i, j) + 2) = br(i, j)
                Next j
                Exit For
            End If
        Next i
       .Value = ar
    End With
   
    Beep
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&
   
     With Sheets(1)
        br = Range(.[B3], .Cells(Rows.Count, "AP").End(xlUp)).Value
    End With
    With Range("A2:CD3")
        .Offset(1, 2).ClearContents
        ar = .Value
        For i = 1 To UBound(br)
            If br(i, 1) = [B3].Value Then
                For j = 2 To UBound(br, 2)
                    ar(2, br(i, j) + 2) = br(i, j)
                Next j
                Exit For
            End If
        Next i
       .Value = ar
    End With
   
    Beep
End Sub

gwjkkkkk

请参考。。。。

newlove

sampsonpon

gwjkkkkk 发表于 2024-4-2 20:35
请参考。。。。

没有得到我想要的结果，无反应。

sampsonpon

蓝桥玄霜 发表于 2024-4-2 20:11
更新的例子：

没有得到我想要的结果，无反应。

蓝桥玄霜

sampsonpon 发表于 2024-4-3 09:53
没有得到我想要的结果，无反应。

A3和B3至少一个需要有数据，才能查询。经测试是正常的。比如A3=2024071