恳请大师帮忙看下这样要咋达到我的目的

qiongmei6

我想在附件上求得一个代码，根据am1的内容，把am1对应的ax列中ay：cf列的内容填到a8：ah8内，例如am1是上海，那么ay7：cf7的内容填入a8：ah8中，谢谢各位大神的帮忙。

明天会更好zj

=OFFSET($AX$1,MATCH($AM$1,$AX:$AX,)-1,COLUMN(),,)公式还简单一点

qiongmei6

谢谢明天会更好zj的回答，因为某些原因，用代码比较适合表格的需求，能否用代码实现

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&
   
    r = Cells(Rows.Count, "AX").End(xlUp).Row
    ar = Range("AX6:CF" & r)
    ReDim br(1 To UBound(ar, 2) - 1)
    For i = 1 To UBound(ar)
        If ar(i, 1) = [AM1].Value Then
            For j = 2 To UBound(ar, 2)
                br(j - 1) = ar(i, j)
            Next j
            Exit For
        End If
    Next i
    [A8].Resize(, UBound(br)) = br
    Beep
End Sub

gwjkkkkk

请参考附件。。。

lhj5286

已写好，看能否满足楼主需求

grf1973

。。。。。。。。。。。。。。

grf1973

JSA基本没有区别。