Cần trợ giúp về bài tập Excel :D

[somei00]

[A19] =show(A4:M4)

[O19] =show(O4:AD4)

[AG19] =show(AG4:AW4)

Số thứ tự ở 2 bảng sau có thay đổi bạn ơi, 1-16, 1-17

[ngoclongnb1609]

Số thứ tự ở 2 bảng sau có thay đổi bạn ơi, 1-16, 1-17

Sorry, ban đổi thành đoạn Code này :

Option Explicit
Function show(vung As Range) As String
Dim mang(), i As Long, k As Long
For i = 1 To vung.Columns.Count
  If vung.Cells(1, i) = "x" Then
    k = k + 1
    ReDim Preserve mang(1 To k)
    mang(k) = i
  End If
Next i
show = Join(mang, ",")
End Function

[huong2211hd]

OK, được rồi, cảm ơn bạn nhiều [IMG]images/smilies/a12.gif[/IMG]