Gửi bởi
debaco
Xin các bạn giúp cho vấn đề của tôi (xin xem file đính kèm), trên Diễn đàn cũng có nhưng dùng VBA, mình xin công thức
Mong các bạn giúp đỡ
Xin cám ơn
Xài đơn giản vậy đi nha...Bạn chỉnh lại nơi gán kết quả
Mã:
Sub ZYX()
Dim Arr(), Res(), i&, k&
Arr = Sheet1.Range("C2:C100").Value
ReDim Res(1 To UBound(Arr, 1), 1 To 1)
For i = 1 To UBound(Arr, 1)
If Arr(i, 1) <> "" Then
k = k + 1
Res(k, 1) = Arr(i, 1)
End If
Next
Sheet12.Range("D4").Resize(UBound(Arr, 1), 1) = Res
End Sub
quên quên họ hỏi công thức [IMG]images/smilies/a03.gif[/IMG][IMG]images/smilies/a03.gif[/IMG]