Fråga : Makroen överträffar in göra inte vad I-funderare kodifiera frågar?

Jag har antecknat en makro överträffar in och anpassat den för att inkludera något, om delen för furmulas

one av kodifiera suposseds för att se upp A1, och om den tomma därefter valda hela kolonnen och delete.

I har försökt efter formeln i efter vägen. Alla slumpmässiga resultat för jordbruksprodukter: kolonner för

(”B: B”). Select
, om IsEmpty (B1) Then
den Application.CutCopyMode- = False
Selection.Delete förskjutningen: =xlToLeft
avslutar If

Or


, om IsEmpty (B1) Then
kolonner (”B: B”). Select
Application.CutCopyMode- = False
Selection.Delete förskjutning: =xlToLeft
avslutar If

Or kolonner (”B: B”). Select
, om (B1) = "" Then
den Application.CutCopyMode- = False
Selection.Delete förskjutningen: =xlToLeft
avslutar If



All av dessa som du ser makroen att välja kolonnen och därefter på några colums, den tar bort, om A1 etc. har något i den, och på andra den gör opposite " klar "

Svar : Makroen överträffar in göra inte vad I-funderare kodifiera frågar?

Och att ta bort den hela kolonnen för den första tomma cellen (inom usedrangen) ro in 1 som du kunde försök detta - om cellen är riktigt tom

Jubel

Dave

1: 2: 3: 4: 5: 6:

UnderKillA () Dunkel rng1 som spänner På felmeritförteckning därefter Uppsättningen rng1 = ror (1) .SpecialCells (xlBlanks) Om inte rng1 är ingenting därefter rng1.Cells (1) .EntireColumn.Delete Avsluta suben