- Gõ gì đó vào cell đâu tiên (để làm tiêu đề)
Option Explicit
Sub TongHop()
Dim Clls As Range, eRw As Long
eRw = [a65500].End(xlUp).Row: [B1].Value = "Value"
Range("B2:B" & eRw).ClearContents
For Each Clls In Range("A1:A" & eRw)
If Clls.Value <> "" Then _
[B65500].End(xlUp).Offset(1).Value = Clls.Value
Next Clls
End Sub
Sub Macro1()
[A:A].Select
With Selection
.AutoFilter
.AutoFilter Field:=1, Criteria1:="="
.ClearContents
.SpecialCells(2).Copy
End With
[B5].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End SubCách đơn giản không chịu làm lại muốn công thức!
=INDEX($A$1:$A$99,SMALL(IF($A$1:$A$99<>"",ROW($A$1:$A$99),""),ROW()),){=IF(TYPE(INDEX($A$1:$A$99,SMALL(IF($A$1:$A$99<>"",ROW($A$1:$A$99),""),ROW()),))-16,"",INDEX($A$1:$A$99,SMALL(IF($A$1:$A$99<>"",ROW($A$1:$A$99),""),ROW()),))}
Option Explicit
Sub CopyToColumn()
Dim Rng As Range, sRng As Range, cRng As Range
Dim MyAdd As String
Set Rng = Range([A1], [A65500].End(xlUp))
Set sRng = Rng.Find("*")
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
If cRng Is Nothing Then
Set cRng = sRng
Else
Set cRng = Union(cRng, sRng)
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
cRng.Copy Destination:=[B2]
End SubXin ai biết giúp với .Em dùng muốn auto filter để lọc dữ liệi nhưng không xài được ai biết vì sao chỉ em với (vào dât chọn auto fiter nhưng ô vuông không xuất hiện)
