Unë jam duke u përpjekur të përdor VBA për të filtruar një tabelë sipas vlerave të kolonës, dhe më pas të ketë një tabelë të re (të filtruar) të dalë në fletën e punës, por një zonë të re. Shënim Unë dua t'i referohem qelizës numrat e diapazonit.
Në tabelën e excel-it të rremë më poshtë. Unë dua të filtroj për diapazonin për kolonën 'mosha'. d.m.th. filtri --> mosha --> midis 1-3 (referenca e qelizave). Tabela e parë është të dhëna të papërpunuara. E dyta është ajo që unë do të doja si dalje duke përdorur VBA.
Unë u përpoqa të vendos kodin më poshtë në daljen time të dëshiruar. Mungojnë të dhëna që nuk lidhen me vetë kolonën (duke marrë kolonat e plota)
Imazhi i të dhënave të papërpunuara dhe prodhimi i dëshiruar më poshtë
Excel VBA, Si të zgjidhni rreshtat bazuar në mbi të dhënat në një kolonë?
Option Explicit
Sub tablefilter()
Dim lastRow As Long, x As Long
Dim lasColumn As Long, i = 4
Dim CopyRange As Range
With Sheets("Sheet1")
lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
For x = 1 To lastRow
If Len(Trim(.Range("A" & x).Value)) 1<3 Then
If CopyRange Is Nothing Then
Set CopyRange = .Rows(i)
Else
Set CopyRange = Union(CopyRange, .Rows(x))
End If
End If
Next
If Not CopyRange Is Nothing Then
CopyRange.Copy Sheets("Sheet2").Rows(1)
End If
End With