VBA koda za pogojno kopiranje podatkov iz enega lista v drugega

Težava

Potrebujem kodo VBA, ki lahko kopira podatke iz lista1 (neobdelani podatki) v list 2, list3 in tako naprej ... na podlagi določenih pogojev.

stolpec --- A ------------ B ------------ C ------------ D ------ -E

----------- ime ----- mesto ---- podjetje --- država

----------- ime1 ---- AB ------- Nokia ------- ZDA

----------- ime2 ---- CD ------- Sony -------- Velika Britanija

----------- ime3 ----- EF ------- LG ----------- INDIJA

----------- name4 ----- AB ------ Sony ------ RUSIJA

----------- name5 ----- AB ------ Sony ------ NEMČIJA

----------- name6 ----- CD ------ Nokia ------ INDIJA

----------- name7 ----- CD ------ Ericsson - ZDA

----------- name8 ----- EF ------ Ericsson ---- RUSIJA

----------- ime9 ----- GH ------ Lenore ----- UK

----------- ime10 --- GH ------- HP --------- INDIJA

Rešitev

Uporabite lahko naslednje kode

 Sub SplitSheets () Dim DataSht, wsCrit, SplitSht Kot delovni list Dim lrUnq, lrData, i kot dolg Dim FtrVal kot niz Application.ScreenUpdating = False Nastavite DataSht = Delovne liste ("sheet1") 'spremenite v ime vašega neobdelanega podatkovnega lista lrData = DataSht.Range ("a" & Rows.Count) .End (xlUp) .Row Set wsCrit = Worksheets.Add DataSht.Range ("B1: l" & lrData) .AdvancedFilter Dejanje: = xlFilterCopy, _ CopyToRange: = wsCrit .Range ("A1"), Unique: = True lrUnq = wsCrit.Range ("a" & Rows.Count). End (xlUp) .Row Za i = 2 Za lrUnq FtrVal = wsCrit.Range ("A" in .Value Set SplitSht = Worksheets.Add DataSht.Select 'DataSht.ShowAllData ActiveSheet.AutoFilterMode = False ActiveSheet.Range ("A1: Z" & lrData). Izberite Območje (izbira, izbira in konec (xlToRight)): Izberite obseg (izbira, izbira in konec (xlDown)) Izberite Izbira.Kopiraj Razdeli (Select) (Izberite A1)) Izberite ActiveSheet.Paste 'Cells.Select Cells .EntireColumn.AutoFit SplitSht.Name = FtrVal Application.CutCopyMode = False Naslednja aplikacija lication.DisplayAlerts = False wsCrit.Delete Application.DisplayAlerts = True. 

Zahvaljujoč RWomanizerju za ta namig.

Prejšnji Članek Naslednji Članek

Top Nasveti