Programim dhe zhvillim, javascript, python, php, html

Filtro tabelën sipas kolonës. (Filtri --› Filtri Between--› Gama e numrave) --› Nxjerr një tabelë të re

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ë Image

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
25.10.2017

  • Nuk jam vërtet i sigurt se çfarë po kërkoni këtu... Ju lutemi, referojuni si të pyesni. Nëse dëshironi ndihmë me kodin tuaj, ne jemi më se të gatshëm t'ju ndihmojmë, megjithatë nuk ju ofrojmë kodin 26.10.2017
  • Rreshti If Len(Trim(.Range("A" & x).Value)) 1<3 Then përmban një gabim sintaksor. Po kërkoni rreshta me gjatësi teksti më të vogla se 3? Nëse po, provoni If Len(Trim(.Range("A" & x).Value)) < 3 Then. 26.10.2017

Përgjigjet:


1

E kuptova. Kjo është për një model me numra, jo vlera teksti. Mendoj se kodi ka një mosefikasitet, por funksionon. Çështja kryesore është se thjesht përdor dy fletë në vend që të krijojë një tabelë të re në të njëjtën fletë. D2/D3 janë numrat e referencës së qelizave dhe G është kolona.

Gama e nën maturitetit ()

Dim ws As Fletë Pune Dim Model As Fletë Pune

Set ws = ThisWorkbook.Sheets ("Output") Set One = ThisWorkbook.Sheets ("Model")

If Not IsEmpty(One.Range("D2")) And Not IsEmpty(One.Range("D3")) Pastaj me ws .Range("$G$7:$G$" & .Range("G" & Rreshtat . & One.Range("D3").Vlera Fund Me Fund If

Fundi Nën

26.10.2017
Materiale të reja

Masterclass Coroutines: Kapitulli-3: Anulimi i korutinave dhe trajtimi i përjashtimeve.
Mirë se vini në udhëzuesin gjithëpërfshirës mbi Kotlin Coroutines! Në këtë seri artikujsh, unë do t'ju çoj në një udhëtim magjepsës, duke filluar nga bazat dhe gradualisht duke u thelluar në..

Faketojeni derisa ta arrini me të dhënat false
A e gjeni ndonjëherë veten duke ndërtuar një aplikacion të ri dhe keni nevojë për të dhëna testimi që duken dhe duken më realiste ose një grup i madh të dhënash për performancën e ngarkesës...

Si të përdorni kërkesën API në Python
Kërkesë API në GitHub për të marrë depot e përdoruesve duke përdorur Python. Në këtë artikull, unë shpjegoj procesin hap pas hapi për të trajtuar një kërkesë API për të marrë të dhëna nga..

Një udhëzues hap pas hapi për të zotëruar React
Në këtë artikull, do të mësoni se si të krijoni aplikacionin React, do të mësoni se si funksionon React dhe konceptet thelbësore që duhet të dini për të ndërtuar aplikacione React. Learning..

AI dhe Psikologjia — Pjesa 2
Në pjesën 2 të serisë sonë të AI dhe Psikologji ne diskutojmë se si makineritë mbledhin dhe përpunojnë të dhëna për të mësuar emocione dhe ndjenja të ndryshme në mendjen e njeriut, duke ndihmuar..

Esencialet e punës ditore të kodit tim VS
Shtesat e mia të preferuara - Git Graph 💹 Kjo shtesë është vërtet e mahnitshme, e përdor përpara se të filloj të punoj për të kontrolluar dy herë ndryshimet dhe degët më të fundit, mund të..

Pse Python? Zbulimi i fuqisë së gjithanshme të një gjiganti programues
Në peizazhin gjithnjë në zhvillim të gjuhëve të programimit, Python është shfaqur si një forcë dominuese. Rritja e tij meteorike nuk është rastësi. Joshja e Python qëndron në thjeshtësinë,..